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Introduction 



Pour resoudre un probleme donne par l'informatique, l'utilisateur de l'ordinateur 
doit mettre au point un programme et le faire executer par la machine. 

L'ordinateur se chargera de traiter les instructions du programme et restituer les 
resultats demandes en fonction des donnes qui lui sont fournies. 

Un programme est une succession logique et ordonnee d'instructions. 

La programmation est l'ensemble des taches qui permettent d'elaborer un 
programme. 

Pour ecrire un programme il faut : 

- Bien connaitre le probleme. 

- Savoir le decouper logiquement en un ensemble d'operations elementaires 
(actions). 

- Connaitre un langage comprehensible par la machine. 

La demarche a suivre dans la resolution d'un probleme en informatique est done : 



Analyse du 

, probleme Traduction 

[Probleme] — ■ {Algorithme ) ^Programme ] 

Recherche des ^ c 

outilsde I'algorithme 

resolution et dan * u " 

Decomposition langage 

en etapes comprehensible 

elementaires par la machine 



Un algorithme est done un moyen de description des etapes a suivre pour resoudre 
un probleme. 
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PARTIE I : 

I - L'instruction d' affectation: 

L'operation affectation permet d'assigner une valeur a un objet. 
Elle est representee en algorithmique par une fleche orientee de droite vers la 
gauche : 



1.1 - Syntaxe : 

Identificateur_objet <— Valeur 

1.2 - Exemple : 

V <- A 

V «- 6 

V «- 3* A + 2*b-l 

Par consequent les ecritures suivantes n'ont pas de sens : 
7 <- A 
A + B <- C 
Ou 

A<- 0 

V «- 1/A 

1.3 - Remarque : 

La declaration d'une variable n'affecte aucune valeur a la variable. 



1. Quelles seront les valeurs des variables A et B apres execution des instructions suivantes ? 
Variables A, B : Entier 

Debut 
A<- 1 
B «- A + 3 
A^3 
Fin 

2. Quelles seront les valeurs des variables A, B et C apres execution des instructions suivantes ? 
Variables A, B, C : Entier 

Debut 

A^5 

B <- 3 

C <- A + B 

A^2 

C^B-A 

Fin 
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3. Quelles seront les valeurs des variables A et B apres execution des instructions suivantes ? 
Variables A, B : Entier 

Debut 
A^5 
B «- A + 4 
A^ A+ 1 
B «- A-4 
Fin 

4. Quelles seront les valeurs des variables A, B et C apres execution des instructions suivantes ? 
Variables A, B, C : Entier 

Debut 
A^3 
B <- 10 
C «- A + B 
B <- A + B 
A^C 
Fin 

5. Quelles seront les valeurs des variables A et B apres execution des instructions suivantes ? 
Variables A, B : Entier 

Debut 
A^5 
B ^ 2 
A^B 
B «- A 
Fin 

Questions : les deux dernieres instructions permettent-elles d'echanger les deux valeurs de B et A ? Si Ton 
inverse les deux dernieres instructions, cela change-t-il quelque chose ? 

6. Ecrire un algorithme permettant d'echanger les valeurs de deux variables A et B, et ce quel que soit leur 
contenu prealable. 

7. On dispose de trois variables A, B et C. Ecrivez un algorithme transferant a B la valeur de A, a C la valeur de 
B et a A la valeur de C (toujours quels que soient les contenus prealables de ces variables). 

8. Que produit 1' algorithme suivant ? 
Variables A, B, C : Caracteres 
Debut 

A «- "423" 
B «- "12" 
C <- A + B 
Fin 

9. Que produit 1' algorithme suivant ? 
Variables A, B : Caracteres 
Debut 

A «- "423" 
B «- "12" 
C^A&B 
Fin 



Page 9 



marouan.ts@gmail.fr 



ALGORITHM IOUE 



2009 



II - Les instructions d'entree / sortie : 

Pour bien, fonctionner, un algorithme doit en general acquerir des donnees 
(entrees) sur un peripherique (Exemple : clavier, disque) et fournir en consequence 
des resultats (sorties) sur un autre peripherique (ecran, imprimante). 

Pour realiser ces taches fondamentales en programmation, on a done besoin de 
deux operations distinctes : 

Lire(V) : qui permet cTaffecter a la variable (V), la valeur lue sur le 
peripherique d'entree. 

Ecrire(V) : qui permet de transferer la valeur (V) vers le peripherique de sortie. 

2.1 - Remarque 1: 

On peut avoir la meme instruction "Ecrire" l'affichage d'un ou plusieurs messages 
et d'une ou plusieurs variables. 

2.2 - Exemple : 

Ecrire " La somme de ces deux nombres " , a , " et " , b , " est : " , S 
Si a = 2 et b = 5, l'instruction ci-dessus s'executera ainsi : 
La somme des deux nombres 2 et 3 est : 7 

2.3 - Remarque 2: 

L'identificateur (V) doit etre une variable declaree. Par consequent les ecritures 
suivantes n'ont pas de sens : 
Lire(6) ; 
Lire(A+B) ; 

2.4 - Exemple : 

VARIABLES A, B, SOMME : ENTIERS 
Debut 

ECRIRE 'Entrez le premier nombre' 
Lire A 

ECRIRE 'Entrez le deuxieme nombre' 
LireB 

SOMME <- A + B 

ECRIRE 'La somme de ces deux nombres est : ' 
ECRIRE SOMME 

Fin 

1. Quel resultat produit le programme suivant ? 
VARIABLES Val, Double : ENTIERS 
Debut 

Val ^ 231 

Double <- Val * 2 

ECRIRE Val 

ECRIRE Double 
Fin 
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2. Ecrire un programme qui demande deux nombres entiers a l'utilisateur, puis qui calcule et 
affiche le somme de ces nombres. 

3. Ecrire un programme qui lit le prix HT d'un article, le nombre d' articles et le taux de TVA, 
et qui fournit le prix total TTC correspondant. Faire en sorte que des libelles apparaissent 
clairement. 

4. Ecrire un programme qui lit une valeur et qui nous calcule 1' inverse de cette valeur. 



5. Le surveillant general d'un etablissement scolaire souhaite qu'on lui ecrit un programme 
qui calcule, pour chaque eleve, la moyenne des notes des cinq matieres. Ces matieres sont 
avec leur coefficient: 



MATIERE 


COEFFICIENT 


Math 


5 


Physique 


5 


Francais 


4 


Anglais 


2 


Histoire - Geographies 


2 



III - La structure alternative : 

1 - Les conditions simples : 

1.1 - Syntaxe : 

Si condition Alors 

Instruction (ou suite d'instructions) 
Finsi 

1.2 - Exemple : 

Si x < 0 Alors 

Ecrire" Valeur negatif " 
Finsi 

2 - L f instruction Si ... Alors ... Sinon ... Finsi : 

2.1 - Syntaxe : 

Si condition Alors 

Instruction 1 
Sinon 

Instruction2 
Finsi 



2.2 - Exemple : 
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Si x < 0 Alors 

Ecrire" Valeur negatif " 
SinonSi x > 0 Alors 

Ecrire" Valeur positif " 
Finsi 



Si x < 0 Alors 

Ecrire" Valeur negatif " 
Sinon 

Ecrire" Valeur positif " 
Finsi 



3 - L f instruction Selon : 

3.1 — Syntaxe : 



Selon variable 

Cas valeur 1 
Blocl 

Cas valeur2 
Bloc2 

Cas valeur3 
Bloc3 
Fin Selon 



1. Ecrire un algorithme qui demande deux nombres a l'utilisateur et l'informe ensuite si leur produit 
est negatif ou positif (on laisse de cote le cas ou le produit est nul). Attention toutefois : on ne doit 
pas calculer le produit des deux nombres. 

2. Ecrire un algorithme qui demande trois noms a l'utilisateur et l'informe ensuite s'ils sont ranges 
ou non dans l'ordre alphabetique. 

3. Ecrire un algorithme qui demande un nombre a l'utilisateur, et l'informe ensuite si ce nombre est 
positif ou negatif (on inclut cette fois le traitement du cas ou le nombre vaut zero). 

4. Ecrire un algorithme qui demande deux nombres a l'utilisateur et l'informe ensuite si le produit 
est negatif ou positif (on inclut cette fois le traitement du cas ou le produit peut etre nul). Attention 
toutefois, on ne doit pas calculer le produit ! 

5. Ecrire un algorithme qui demande l'age d'un enfant a l'utilisateur. Ensuite, il l'informe de sa 
categorie : 

- « Poussin » de 6 a 7 ans 

- « Pupille » de 8 a 9 ans 

- « Minime » de 10 a 1 1 ans 

- « Cadet » apres 12 ans 

6. a partir d'un montant lu, on determine un montant net par application d'une remise de : 

- 1% si le montant est compris entre 2000 et 5000 DH (valeurs comprises) 

- 2 % si le montant est superieur a 5000 DH. 

7. Ecrire un algorithme permettant d'effectuer la somme, la difference, le produit et le 
rapport de deux nombres reels a partir d'un menu : 



Page 12 



marouan.ts@gmail.fr 



ALGORITHM IQUE 



2009 



1 : Somme— 

2 ; Difference 

3 : Produit— 

4 : Division— 

5 : Quitter- 



Taper votre choix? 

On doit retourner au menu, lorsqu'on finit une operation ou si on tape un nombre incorrect 
(un message s'affichera). 

8. Saisir 2 entiers a et b, determiner dans R les racines de l'equation : ax + b =0 

9. Saisir 3 entiers a, b et c, determiner dans R les racines de l'equation :aX 2 +bX + c =0 

10. Donnez un algorithme qui lit sur l'entree une valeur representant une somme d'argent et 
qui calcule et affiche le nombre de billets de 200 DH, 100 DH, 50 DH et 20 DH, et les 
pieces de 10 DH, 5 DH, 2 DH, et 1 DH. 

IV - Les structures repetitives : 
1 - L 'instruction Pour : 

1.1 - Syntaxe : 

POUR compteur = \di\_initial A val_final PAS DE increment 

Instructions a repeter 
FIN POUR 

1.2 - Exemple : 

Variable i Entier 
Debut 

Pour i de 1 a 3 Faire 
Ecrire « Hello World » 

FinPour 

Fin 

Resultat : 



Hello World 
Hello World 
Hello World 




1. Ecrire un algorithme qui demande un nombre de depart, et qui ensuite ecrit la table de 

multiplication de ce nombre, presentee comme suit (cas ou l'utilisateur entre le nombre 7) : 

Table de 7: 

7x1=7 

7x2 = 14 

7x3 = 21 

7 x 10 = 70 
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2. Ecrire un algorithme qui demande un nombre de depart, et qui calcule la somme des entiers 
jusqu'a ce nombre. Par exemple, si Ton entre 5, le programme doit calculer : 

1 + 2 + 3+4 + 5 = 15 

3. Ecrire un algorithme qui demande un nombre de depart, et qui calcule sa factorielle. 
NB : la factorielle de 8, notee 8 ! vaut 1x2x3x4x5x6x7x8 

4. Ecrire un algorithme qui demande successivement 20 nombres a l'utilisateur, et qui lui dise 
ensuite quel etait le plus grand parmi ces 20 nombres : 

Entrez le nombre numero 1:12 
Entrez le nombre numero 2:14 

Entrez le nombre numero 20 : 6 

Le plus grand de ces nombres est : 14 

Modifiez ensuite 1' algorithme pour que le programme affiche de surcroit en quelle position avait ete 

saisie ce nombre : 

C etait le nombre numero 2 

5. Ecrire un algorithme qui : 

- lit d'abord une valeur 

- ensuite il va lire successivement 20 nombres. 

- enfin il va determiner combien de fois la premiere valeur a ete saisie (sans compter la premiere 
saisie). 

6. Ecrire un algorithme qui calcule et affiche la valeur de Y donnee par : 

Y = N 10 Si N>20 

Y = N! Si N < 20 

N etant un entier positif connu. 

7. Ecrire un algorithme pour tester si un nombre est parfait. Un nombre est dit parfait s'il est 
egal a la somme de ses diviseurs stricts. 

Exemple : 28 = 1 + 2 + 4 + 7 + 14. 

8. Un nombre entier P est premier si ses seuls diviseurs sont 1 et P. Ecrire un algorithme 
qui permet de determiner si un nombre est premier ou non. 

2 - La structure TANT QUE : 

2.1 - Syntaxe : 

Tantque condition de continuation Faire 

Instructions a repeter 
FinTantque 

2.2 - Exemple : 

Variable ch chaine de caractere 
Debut 

ch = « oui » 

Tantque ch = « oui » Faire 
Ecrire « Hello World » 
Ecrire « Voulez-vous continuez oui/non » 
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Lire ch 
FinTantque 
Ecrire « Fin» 

Fin 

Resultat : 

Hello World 

Voulez-vous continuez oui/non : Si la reponse est egale oui le programme affiche 
"Hello World" Si la reponse est egale non le programme affiche Fin. 

1. Ecrire un algorithme qui demande a l'utilisateur un nombre compris entre 1 et 3 jusqu'a ce que la 
reponse convienne. 

2. Ecrire un algorithme qui demande un nombre compris entre 10 et 20, jusqu'a ce que la reponse 
convienne. En cas de reponse superieure a 20, on fera apparaitre un message : « Plus petit ! », et 
inversement, « Plus grand ! » si le nombre est inferieur a 10. 

3. Ecrire un algorithme qui demande un nombre de depart, et qui ensuite affiche les dix nombres 
suivants. Par exemple, si l'utilisateur entre le nombre 17, le programme affichera les nombres de 18 
a 27. 

4. Ecrire un algorithme qui demande successivement des nombres a l'utilisateur, et qui lui dise 
ensuite quel etait le plus grand parmi ces nombres et quel etait sa position. La saisie des nombres 
s'arrete lorsque l'utilisateur entre un zero. 

5. Lire la suite des prix (en DH entiers et terminee par zero) des achats d'un client. Calculer la 
somme qu'il doit, lire la somme qu'il paye, et determiner le reste a rendre. 

3 - La structure REPETER : 

3.1 - Syntaxe : 

Repeter 

Instruction a repeter 
Jusqu'a condition 

3.2 - Exemple : 

Variable n Entier 
Debut 

Repeter 

Ecrire « Entrez un nombre : » 
Lire n 
Jusqu'a n = - 1 
Ecrire « Fin » 

Fin 
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Resultat : 



Entrez un nombre : Si la reponse est egale un nombre different a (-1) le programme 
affiche " Entrez un nombre : " . Si la reponse est egale (-1) le programme affiche "Fin". 




1. Ecrire un algorithme qui demande successivement des nombres a l'utilisateur, et qui calcule le 
nombre de valeurs saisies. La saisie des nombres s'arrete lorsque l'utilisateur entre le caractere « n 
» ou « N ». 



2. Ecrire un algorithme qui demande successivement des nombres a l'utilisateur, et qui calcule leur 
moyenne. La saisie des nombres s'arrete lorsque l'utilisateur entre un zero. 

3. Modifiez 1' algorithme de l'exercice 1, de fagon qu'il nous renseigne sur le nombre des valeurs 
positives et sur le nombre des valeurs negatives. Ne comptez pas les valeurs nuls. 

4. Ecrire un algorithme qui lit les caracteres saisies par l'utilisateur. A la fin ce programme nous 
affichera la phrase saisie. La saisie des caracteres s'arrete lorsqu'on tape point «. ». Pour 
l'utilisateur veut inserer un espace il lui suffit de tapez sur 0. Par exemple si l'utilisateur tape 
successivement les caracteres « b », « o », « n », « j », « o », « u », « r », « t », « o », « u », « s », «. 
», il nous affichera la chaine « bonjourtous ». 

Mais si il tape « b » , « o », « n », « j », « o », « u », « r » , « 0 », « t », « o », « u », « s », « . » , le 
programme affichera « bonjour tous ». 

V - Les tableaux a une seule dimension : 

Une donnee de type tableau est constitute d'un nombre de donnees elementaires de 
me me type. 

5.1 - Syntaxe : 



Variable Tableau nomTableau(Taille) en type 



5.2 - Exemples : 

Tableau Note(5) : Reel 

Note (5) est un tableau qui contient vingt valeurs reelles. 

Tableau nom(10), prenom(lO) : Chaine de caractere 

Nom(10) et prenom(lO) sont deux tableaux de 10 elements de type chaine. 

Un tableau peut etre represents graphiquement par (exemple Note(5)) : 



Note (1) 


Note (2) 






Note (5) 
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1. Considerons les programmes suivants: 

Tableau X (4) : Entier 

DEBUT 

X(l) <- 12 
X(2)^5 
X (3) <- 8 
X (4) «- 20 

FIN 

Tableau voyelle (6) : Chaine 
DEBUT 

Voyelle (1) <— « a » 
Voyelle (2) <— « e » 
Voyelle (3) <— « i » 
Voyelle (4) <— « o » 
Voyelle (5) <— « u » 
Voyelle (6) <— « y » 

FIN 

Donner les representations graphiques des tableaux X (4) et voyelle (6) apres execution de ces 
programmes. 



2. Quel resultat fournira l'execution de ce programme : 
Variable i : Entier 
Tableau C (6) : Entier 
DEBUT 

POUR i = 1 A 6 

Lire C (i) 
FIN POUR 
POUR i = 1 A 6 

C (i) <- C (i) * C (i) 
FIN POUR 
POUR i = 1 A 6 

Ecrire C (i) 
FIN POUR 

FIN 

Si on saisit successivement les valeurs : 2 , 5, 3, 10,4,2. 



3. Que fournira l'execution de ce programme : 
Tableau suite (8) : Entier 

Variable i : Entier 
DEBUT 

Suite (1) «- 1 
Suite (2) «- 1 
POUR i = 3 A 8 

Suite (i) <— suite (i - 1) + suite (i - 2) 
FIN POUR 
POUR i = 1 A 8 

Ecrire suite (i) 
FIN POUR 

FIN 

4. Soit T un tableau de vingt elements de types entiers. Ecrire le programme qui permet de calculer 
la somme des elements de ce tableau. 



5. Soit T un tableau de N entiers. Ecrire l'algorithme qui determine le plus grand element de ce 
tableau. 
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6. Ecrire un programme qui permet de lire 100 notes et de determiner le nombre de celles qui sont 
superieures a la moyenne. 

7. Soit T un tableau de N entiers. Ecrire l'algorithme qui determine simultanement la position du 
plus grand element et la position du plus petit element du tableau. 

8. Soit T un tableau de N reels. Ecrire le programme qui permet de calculer le nombre des 
occurrences d'un nombre X (c'est-a-dire combien de fois ce nombre X figure dans le tableau T). 

9. Ecrire un algorithme qui calcule le nombre d'entiers pairs et le nombre d'entiers impairs 
d'un tableau d'entiers. 

10. Soit un tableau T(n), ecrire un algorithme qui calcule VMEP (valeur moyenne des 
elements positifs), VMEN (valeur moyenne des elements negatifs) et NEM (nombre 
d'elements nuls). 

11. On dispose des notes de 25 eleves ; chaque eleve peut avoir une ou plusieurs notes mais 
toujours au moins une. Ecrire un programme permettant d'obtenir la moyenne de chaque eleve 
lorsqu'on lui fournit les notes. On veut que les donnees et les resultats se presentent ainsi : 



Notes de 1' eleve numero 1 

12 

12 

-1 

Notes de 1' eleve numero 2 



Notes de 1' eleve numero 25 

75 

-1 

Moyennes 

Eleve numero 1:11 



Eleve numero 25 : 15 
Moyenne de la classe : 12.3 



Les parties italiques correspondent aux donnees tapees par l'utilisateur. La valeur -1 sert de critere 
de fin de notes pour chaque eleve. 
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1. Ecrire un algorithme qui renverse un tableau (Si le tableau est trie en ordre croissant, il 
devient trie par ordre decroissant). 

2. Ecrire un algorithme qui insere un element donne X a la position K d'un tableau. 

3. Soit T un tableau ranges dans l'ordre croissant. Ecrire un algorithme qui insere un 
element donne X dans le tableau T en respectant l'ordre croissant? 

4. Donner un algorithme pour supprimer un element donne d'un tableau d'entiers. 

5. On demande l'ecriture d'un algorithme qui permet la representation du triangle de Pascal. 
NB : utilisez un tableau a une seule dimension. 

1 

1 1 
1 2 1 
1331 
1 464 1 

6. Donner un algorithme qui prend en argument un tableau d'entiers de taille n et qui le 
modifie de tels sorts que tous les entiers pairs se retrouvent avant les entiers impairs. 

Exemple : 

Au depart :T=74784639 4. 

Apres modification :T = 4 8 4 6 6 7 7 3 9. 

7. Faire un programme qui calcule le produit scalaire de deux vecteurs d'entiers U et V (de 
me me dimension). 

Exemple : 

/ \ / \ 

13 2 -4 1*12 -3 51 = 3*2 + 2* (-3) + (-4) * 5 = -20 
\ / \ / 

8. Soit T un tableau d'entiers de taille n. Un plateau dans T est une suite d'elements 
consecutifs et egaux de T. Le probleme consiste a trouver le plus long plateau dans le 
tableau T. 

Exemple : 

Pour le tableau contenant les valeurs (2; 2; 6; 6; 6; 6; 3; 3; 6; 3; 3; 3; 2; 3; 3), le plus long 

plateau commence a l'indice 3 et il est de longueur 4. 

Ecrire un algorithme qui permet de resoudre le probleme enonce. 

9. Trier les elements d'un tableau par les methodes suivantes : 
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a. Tri a bulles. 

b. Tri par selection. 

c. Tri par insertion. 

10. On considere une sequence d'entiers representee dans un tableau. Ecrire un algorithme 
qui affiche la valeur du dernier entier de la sequence. 

11. On considere une sequence de durees representee dans un tableau. Ecrire un algorithme 
qui lit une duree D, et qui affiche la petite duree superieur a D, presente dans la sequence. 
L'algorithme est decompose en deux etapes : recherche de la premiere duree superieure a D, 
puis calcul du resultat par un parcours de la fin de sequence. 

12. On considere une sequence d'entiers representee dans un tableau. Ecrire un algorithme 
qui affiche un message indiquant si la sequence comporte que des entiers positifs. 

13. On considere deux sequences d'entiers positifs en ordre croissant represents dans un 
tableau. Ecrire un algorithme qui realise l'interclassement des deux sequences : le resultat 
est un tableau contenant une troisieme sequence en ordre croissant comportant tous les 
elements presents dans les deux sequences lues. Si un meme element apparaitre x fois dans 
la premiere sequence et y fois dans la deuxieme, il doit apparaitre x+y fois dans la sequence 
resultat. Les sequences lues peuvent etre vides. 

Exemple : sequence 1 : 1 1 3 4 1 1 1 1 25 28 30 30 32 40 
Sequence 2 : 1 2 3 5 5 11 24 25 29 

Sequence resultat : 1 1 1 2 3 3 4 5 5 11 11 11 24 25 25 28 29 30 30 32 40 

14. On considere un tableau comportant une sequence de chaine de caracteres. Ecrire un 
algorithme qui affiche et compte toutes les chaines qui contiennent au moins trois 
occurrences de caractere 'A' 

Exemple : contenu du tableau : "Marouan" "Peace" " HAH AH A " 
Resultat affiche : HAHAHA 

15. On considere un tableau de caracteres comportant un texte forme de lettres et 
d'espaces. Un mot est une suite de lettres delimitee par des espaces ou par les extremites du 
texte. Ecrire un algorithme qui affiche un message indiquant si le texte est un tautogramme, 
c'est a dire si tous les mots du texte commencent par la meme lettre. Exemple : le lion lape 
le lait lentement. 

16. On considere deux ensembles d'entiers representes dans les tableaux, Chaque entier 
n'apparait qu'en un exemplaire dans une sequence. Ecrire un algorithme qui produit un 
tableau contenant l'intersection des deux ensembles. Exemple : tableau 1:10512719 28 
6. Tableau 2 : 5 14 19 2 10 6 29 3 7. Tableau resultat : 10 5 7 19 6 

17. Ecrire un algorithme qui permet de calculer le PGDC (le plus grand diviseur commun) 
de deux entiers. Exemple : le PGDC de 144 et 96 est : 48 
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VI - Les tableaux a deux dimensions : 

Les tableaux a deux dimensions se presentent comme un gri (Matrice). Ay ant un certain 
nombre de ligne et un certain nombre de colonne. 

6.1 - Syntaxe : 

Variable Tableau nomTableau(n, m) en type 
n : nombre de ligne. 
m : nombre de colonne. 

6.2 - Exemples : 

Tableau T (3, 3) : Reel 



T(l, 1) 


T(l,2) 


T(l,3) 


T (2, 1) 


T (2, 2) 


T (2, 3) 


T(3, 1) 


T (3, 2) 


T (3, 3) 




1. Ecrire un algorithme qui calcule la somme des elements d'une matrice. 

2. Ecrire un algorithme qui calcule la somme des lignes d'une matrice. 

3. Ecrire un algorithme qui calcule la somme des elements de la diagonale d'une matrice 
carree. 

4. Ecrire un algorithme qui calcule le produit de tous les elements d'une matrice. 

5. Ecrire un algorithme qui calcule le produit d'une matrice avec un vecteur. 

6. Donner un algorithme pour calculer le produit matriciel. 

7. Donner un algorithme pour tester si une matrice carree est symetrique. 

8. Faire un programme permettant de calculer d'afficher la table des produits pour N variant 
del a 10: 



X * Y 


0 


1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


1 


0 


1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


2 


0 


2 


4 


6 


8 


10 


12 


14 


16 


18 


20 


3 


0 


3 


6 


9 


12 


15 


18 


21 


24 


27 


30 


4 


0 


4 


8 


12 


16 


20 


24 


28 


32 


36 


40 


5 


0 


5 


10 


15 


20 


25 


30 


35 


40 


45 


50 


6 


0 


6 


12 


18 


24 


30 


36 


42 


48 


54 


60 


7 


0 


7 


14 


21 


28 


35 


42 


49 


56 


63 


70 


8 


0 


8 


16 


24 


32 


40 


48 


56 


64 


72 


80 


9 


0 


9 


18 


27 


36 


45 


54 


63 


72 


81 


90 


10 


0 


10 


20 


30 


40 


50 


60 


70 


80 


90 


100 
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9. Ecrire l'algorithme qui determine le plus grand element et le petit element ainsi, la position de 
plus grand element et le petit element d'une matrice. 

10. On demande l'ecriture d'un algorithme qui permet la representation du triangle de 
Pascal : 

1 

1 1 
1 2 1 
1331 
1 464 1 



11. Un carre magique d'ordre n est une matrice carree n x n telle que la somme des entiers 
de chaque ligne, chaque colonne et des deux diagonales sont identiques. 
Exemple de carre magique d'ordre 3 : 



4 


9 


2 


3 


5 


7 


8 


1 


6 



12. Ecrire un algorithme qui transfere une matrice M a deux dimension L et C (dimensions 
maximales : 10 lignes et 10 colonnes) dans un tableau V a une dimension L * C. 

Exemple : 



/ 






\ 




la 


b 


c 


dl 


/ \ 


le 


f 


g 


hi 


> labcdefghijkll 


li 


j 


k 


11 


\ / 


\ 






/ 





13. Ecrire un algorithme qui effectue la transposition tA d'une matrice A de dimensions N 
et M en une matrice de dimensions M et N. 



Exemple : 



/ 




\ 


/ 




\ 


la 


b 


c d 1 


1 a 


e 


il 


tie 


f 


g h 1 


= 1 b 


f 


J 


li 


j 


k 1 1 


1 c 


g 


k 


\ 




/ 


1 d 

\ 


h 


1 1 

/ 



14. Ecrire un algorithme qui realise l'addition de deux matrices A et B de memes 
dimensions N et M. 
Exemple : 



/ 






\ 


/ 






\ 


/ 






\ 


la 


b 


c 


dl 


la' 


b' 


c' 


dl 


la + a' 


b + b' 


c + c' 


d + d 1 


le 


f 


g 


hi 


+ le' 


f 


g' 


h'l = 


le+e' 


f + f 


g + g' 


h + h'l 


li 


j 


k 


11 


li' 


j' 


k 


ri 


1 i + i' 


j + T 


k + k' 


i+r i 


\ 






/ 


\ 






/ 


\ 






/ 
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* - Les suites : 

1. Donnez un algorithme pour calculer : 
S = 3° + 3 1 + 3 2 + + 3"" 1 

2. Donnez un algorithme pour calculer : 
S = 1 + X 2 + X 4 + + x 2n 

3. Donnez un algorithme pour calculer : 
S = 1 + 1/2 + 1/3 + + 1/n 

4. Donnez un algorithme pour calculer : 

S = 1 + 1/2 + 1/4 + 1/6 + + l/2n 

5. Donnez un algorithme pour calculer : 

S = 1-1/2 + 1/3 - 1/4 + -l/2n + l/2n + 1 

6. Donnez un algorithme pour calculer : 
S = 1 + 1/2 + 2/3 + 3/4 + 

7. Donnez un algorithme pour calculer : 

S = 1 - 1/3 + 1/4 - 1/6 + 1/7 + 

8. Donnez un algorithme pour calculer : 

S = X 1 + X 3 /3 + X 5 /5 + + X 2n+1 /2n+l 

9. Donnez un algorithme pour calculer : 
/ 

I So = 1 

I S n = 3S n _i + 5 

\ 

10. Donnez un algorithme pour calculer : 
/ 

I So = 1/2 
I Si =1 

I S n +i = 3S n — 5S n _i 
\ 

11. Donnez un algorithme pour calculer : 

e x = 1 + X + X 2 /2! + X 3 /3 ! + + X N /N! NB : avec N un donnee d'entree. 

12. Donnez un algorithme pour calculer : 

e x = 1 + X + X 2 /2! + X 3 /3 ! + + X N /N! NB : avec N un donnee d'entree. 

Le calcule de e x s'arrete quand X N /N! Devient inferieur strictement a EPS (EPS est une 
donnee d'entree). 

13. Donnez un algorithme pour calculer : 

S = SIN(X) = X - X 3 /3! + X 5 /5! - X 7 /7! + 
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Ante* 



i. 



Apres execution de l'instruction 


La valeur des variables est : 


A<- 1 


A = 1 B =? 


B <- A + 3 


A= 1 B = 4 


A^3 


A=3B=4 



2. 



3. 



Apres execution de l'instruction 


La valeur des variables est : 


A^5 


A = 5 B =? C =? 


B <- 3 


A = 5B = 3C=? 


C «- A + B 


A=5B=3C=8 


A^2 


A=2B=3C=8 


C^B-A 


A=2B=3C=1 




Apres execution de l'instruction 


La valeur des variables est : 


A^5 


A = 5 B =? 


B <— A + 4 


A=5B=9 


A^ A + 1 


A=6B=9 


B «- A-4 


A=6B=2 




Apres execution de l'instruction 


La valeur des variables est : 


A^3 


A = 3 B =? C =? 


B «- 10 


A=3B = 10 C=? 


C «- A + B 


A = 3B = 10C = 13 


B «- A + B 


A = 3B = 13C = 13 


A^C 


A = 13 B = 13 C = 13 



5. 



Apres execution de l'instruction 


La valeur des variables est : 


A^5 


A = 5 B =? 


B ^ 2 


A=5B=2 


A^B 


A=2B=2 


B «- A 


A=2B=2 



Les deux dernieres instructions ne permettent done pas d'echanger les deux valeurs de B et A, 
puisque Tune des deux valeurs (celle de A) est ici ecrasee. 

Si Ton inverse les deux dernieres instructions, cela ne changera rien du tout, hormis le fait que cette 
fois e'est la valeur de B qui sera ecrasee. 



6. L'algorithme est 
Debut 

C^A 
A^B 
B^C 



Page 25 marouan.ts@gmail.fr 



ALGORITHM IQUE 



2009 



Fin 

On est oblige de passer par une variable dite temporaire (la variable C). 
7. L'algorithme est : 



Debut 




D^- 


C 


C^- 


B 


B «- 


A 


A<- 


D 


Fin 





En fait, quel que soit le nombre de variables, une seule variable temporaire suffit. 

8. II ne peut produire qu'une erreur d' execution, puisqu'on ne peut pas additionner des caracteres. 

9. On peut concatener ces variables. A la fin de l'algorithme, C vaudra done "42312". 

1. On verra apparaitre a l'ecran : 
231 I 
462 



2. Le programme est : 
VARIABLES A, B, SOMME : ENTIERS 
Debut 

ECRIRE 'Entrez le premier nombre' 
Lire A 

ECRIRE 'Entrez le deuxieme nombre' 
LireB 

SOMME <- A + B 

ECRIRE 'La somme de ces deux nombres est : ' 
ECRIRE SOMME 

Fin 

Remarque : On peut remplacer les deux derniers lignes par : 
ECRIRE 'La somme de ces deux nombres est : ', SOMME 

3. Le programme est : 
VARIABLES pht, ttva, pttc : REELS 
VARIABLE nb : ENTIER 

Debut 

ECRIRE "Entrez le prix hors taxes :" 
LIRE pht 

ECRIRE "Entrez le nombre d' articles :" 
LIRE nb 

ECRIRE "Entrez le taux de TV A :" 
LIRE ttva 

Pttc <- nb * pht * (1 + ttva) 

ECRIRE "Le prix toutes taxes est : ", ttvc 

Fin 
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4. Le programme est : 
VARIABLES x, inverse : REELS 
Debut 

ECRIRE "Entrez une valeur :" 
LIREx 

inverse <— 1 / x 

ECRIRE "L' inverse est : ", inverse 

Fin 

5. Le programme est : 

VARIABLES mat, phy, ang, fra, hg, moyenne : REELS 
Debut 

ECRIRE "Entrez la note de math :" 
LIRE mat 

ECRIRE "Entrez la note de physique :" 
LIRE phy 

ECRIRE "Entrez la note de fran£ais :" 
LIRE fra 

ECRIRE "Entrez la note d' anglais :" 
LIRE ang 

ECRIRE "Entrez la note d'histoire-Geo :" 
LIRE hg 

moyenne <— ((mat + phy) * 5 + fra * 4 + (ang 
+ hg)*2)/18 

ECRIRE "La moyenne est : ", moyenne 

Fin 



1. Le programme est : 
Variables m, n : Entier 
Debut 

Ecrire "Entrez deux nombres : " 

Lire m, n 

Si m * n > 0 Alors 

Ecrire "Leur produit est positif ' 
Sinon 

Ecrire "Leur produit est negatif ' 
Finsi 

Fin 

2. Le programme est : 
Variables a, b, c : Caractere 
Debut 

Ecrire "Entrez successivement trois noms : " 
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Lire a, b, c 

Si a < b et b < c Alors 

Ecrire "Ces noms sont classes alphabetiquement" 
Sinon 

Ecrire "Ces noms ne sont pas classes" 
Finsi 

Fin 

3. Le programme est : 
Variable n : Entier 
Debut 

Ecrire "Entrez un nombre : " 
Lire n 

Si n < 0 Alors 

Ecrire "Ce nombre est negatif 
SinonSi n = 0 Alors 

Ecrire "Ce nombre est mil" 
Sinon 

Ecrire "Ce nombre est positif ' 
Finsi 

Fin 

4. Le programme est : 
Variables m, n : Entier 
Debut 

Ecrire "Entrez deux nombres : " 
Lire m, n 

Sim = 0OUn = 0 Alors 

Ecrire "Le produit est nul" 
SinonSi (m < 0 ET n < 0) OU (m > 0 ET n > 0) Alors 

Ecrire "Le produit est positif 
Sinon 

Ecrire "Le produit est negatif 
Finsi 

Fin 

5. Le programme est : 
Variable age : Entier 
Debut 

Ecrire "Entrez l'age de 1' enfant : " 
Lire age 

Si age >= 12 Alors 

Ecrire "Categorie Cadet" 
SinonSi age >= 10 Alors 

Ecrire "Categorie Minime" 
SinonSi age >= 8 Alors 

Ecrire "Categorie Pupille" 
SinonSi age >= 6 Alors 

Ecrire "Categorie Poussin" 
Finsi 

Fin 

6. Le programme est : 

Variables montant , taux , remise : Reels 
Debut 
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Ecrire "Entrez le montant : " 

Lire montant 

Si montant < 2000 Alors 

taux <— 0 
Sinon 

Si montant < 5000 Alors 

taux <— 1 
Sinon 

taux <— 2 
Fin SI 
Fin Si 

Montant <- montant * (1 - taux / 100) 
Ecrire "Le montant net est : " , montant 



7. Le programme est : 

Variables S, D, M, SO, Res, a, b : Reel 

Variables Choix : Entiers 

DEBUT 

Ecrire «1 : Somme : » 

Ecrire «2 : Difference : » 

Ecrire «3 : Produit : » 

Ecrire «4 : Division : » 



Ecrire «5 : Quitter : » 

Ecrire « Taper votre choix? : » 

Lire Choix 

Ecrire « Entrez a : » 

Lire a 

Ecrire « Entrez b : » 
Lire b 
Selon Choix 
Casl 

Res <— a + b 

Ecrire «La Somme est : » , Res 
Cas2 

Res <— a-b 

Ecrire «La Difference est : » , Res 
Cas3 

Res <— a * b 

Ecrire «Le Produit est : » , Res 
Cas4 

Si b = 0 Alors 

Ecrire « Impossible» 
Sinon 

Res <— a/b 

Ecrire «La Division est : » , Res 

FIN Si 
Cas5 

Exit 
Cas Sinon 
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Ecrire « Erreur de choix » 

Fin Selon 

FIN 

8. Le programme est : 
Variables a, b : Entiers 
Variables X : Reel 
DEBUT 

Ecrire « Entrez a : » 

Lire a 

Ecrire « Entrez b : » 
Lire b 

Si a = 0 Alors 

Si b = 0 Alors 

Ecrire « La solution est R » 
FIN Si 

Si b <> 0 Alors 

Ecrire « Pas de solution » 
FIN Si 
FIN Si 

Si a <> 0 Alors 
X <- -b/a 
Ecrire « X est : » , X 

FIN Si 

FIN 



9. Le programme est : 
Variables a, b, c : Entiers 
Variables X x , X 2 , Delta : Reel 
DEBUT 

Ecrire « Entrez a : » 

Lire a 

Ecrire « Entrez b : » 
Lire b 

Ecrire « Entrez c : » 
Lire c 

Si a <> 0 Alors 

Delta <- (b*b) - (4 * a * c) 
Ecrire « Delta est : », Delta 
Si Delta = 0 Alors 

Xi <- -b /(2 * a; 

Ecrire « Xi est : », Xi 
Sinon Si Delta > 0 Alors 

Xi <- ( (-b) + rVDeita ;;/(2 * 

X 2 <- ( r-^; - rVDelta ))/(2 * 
Ecrire « Xi est : », Xi 
Ecrire « X 2 est : », X 2 
FIN Si 
Sinon 



a) 
a) 
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Si b = 0 Alors 
Si c = 0 Alors 

Ecrire « La solution est R » 
Sinon 

Ecrire « Pas de solution » 
FIN Si 
Sinon 

Xi < c/b 

Ecrire « Xi est : », Xi 
FIN Si 
FIN Si 

FIN 

10. Le programme est : 
Variables S, a : Reel 
DEBUT 

Ecrire « Entrez la somme d'argent : » 
LireS 

Si S >= 200 Alors 

a <- S \ 200 
S <- S Mod 200 

Ecrire « Le nombre de billets de 200 DH est : », a 
FJN Si 

Si S >= 100 Alors 

a <- S \ 100 
S <- S Mod 100 

Ecrire « Le nombre de billets de 100 DH est : », a 
FJN Si 

Si S >= 50 Alors 

a <- S \ 50 
S <- S Mod 50 

Ecrire « Le nombre de billets de 50 DH est : », a 
FJN Si 

Si S >= 20 Alors 

a <- S \ 20 
S <- S Mod 20 

Ecrire « Le nombre de billets de 20 DH est : », a 
FJN Si 

Si S >= 10 Alors 

a <- S \ 10 
S ^ S Mod 10 

Ecrire « Le nombre de Piece de 10 DH est : », a 
FJN Si 

Si S >= 5 Alors 

a <- S \ 5 
S S Mod 5 

Ecrire « Le nombre de Piece de 5 DH est : », a 
FJN Si 
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Si S >= 2 Alors 

a <- S \ 2 
S <- S Mod 2 

Ecrire « Le nombre de Piece de 2 DH est : », a 
FJN Si 

Si S >= 1 Alors 

a <- S \ 1 
S <- S Mod 1 

Ecrire « Le nombre de Piece de 1 DH est : », a 
FJN Si 

FIN 




1. Le programme est : 
Variables i , valeur : Entiers 
DEBUT 

Ecrire « Entrez un nombre : » 

Lire valeur 

POUR i = 1 A valeur 

Ecrire valeur & " X " & i & " = " & valeur * i 
FIN POUR 

FIN 

2. Le programme est : 

Variables i , valeur , somme : Entiers 
DEBUT 

Ecrire « Entrez un nombre : » 

Lire valeur 

somme <— 0 

POUR i = 1 A valeur 

somme <— somme + i 
FIN POUR 

Ecrire "La somme des " & valeur & " premiers entiers est : " & somme 

FIN 

3. Le programme est : 

Variables i , valeur , factoriel : Entiers 
DEBUT 

Ecrire « Entrez un nombre : » 
Lire valeur 
factoriel <— 1 
POUR i = 1 A valeur 
factoriel <— factoriel * i 
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FIN POUR 

Ecrire "Le factoriel de " & valeur & " est : " & factoriel 

Fin 

4. Le programme est : 

Variables i , a , max , pmax : Entiers 
DEBUT 

Ecrire « Entrez le nombre numero 1 » 
Lire a 
max <— a 
pmax <— 1 
POUR i = 2 A 20 

Ecrire « Entrez le nombre numero » , i 

Lire a 

SI a > max ALORS 

max <— a 

pmax <— i 
FIN SI 
FIN POUR 

Ecrire « Le plus grand nombre est : » , max 
Ecrire « Sa position est : » , pmax 

FIN 

5. Le programme est : 
Variables i , a , b , S : Entiers 
DEBUT 

Ecrire « Entrez un chiffre : » 
Lire a 

S ^0 

POUR i = 1 A 20 

Ecrire « Entrez un nombre : » 
Lire b 

SI a = b ALORS 

S + 1 
FIN SI 
FIN POUR 

Ecrire « Le nombre de fois de saisie de » , a , « est : » , S 

FIN 

6. Le programme est : 
Variables N, i : Entiers 
Variables Y : Reel 
DEBUT 

Ecrire « Entrez N : » 
Lire N 

Si N >= 20 Alors 

Y <- (N 10 ) 
Sinon 

Y <- 1 

POUR i = 1 A N 

Y <- Y*i 

FIN POUR 
FIN Si 
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Ecrire «La valeur de Y est : », Y 

FIN 

7. Le programme est : 
Variables n, s, i : Entiers 
DEBUT 

Ecrire « Entrez un nombre : » 
Lire n 

POUR i = 1 A n - 1 

Si nMod 1=0 Alors 
s <— s + i 

FIN Si 
FIN POUR 
Si s = n Alors 

Ecrire " par fait " 
Sinon 

Ecrire " Pas par fait " 
FIN Si 

FIN 

8. Le programme est : 

12. Variables P, i, R : Entiers 
Variables Test : Boolean 
DEBUT 

Test <— vrai 

Ecrire « Entrez P : » 

LireP 

Si P = 0 Alors 

Ecrire « Pas premier » 
FIN Si 

Si P = 1 Ou P = 2 Alors 

Ecrire « Premier » 
FIN Si 

Si P >= 3 Alors 

POUR i = 2 A P - 1 
R <- PModi 
Si R = 0 Alors 

Test ^Faux 
FIN Si 
FIN POUR 

Si Test = Faux Alors 
Ecrire « Pas premier » 

Sinon 

Ecrire « Premier » 
FIN Si 
FIN Si 

FIN 
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1. Le programme est : 
Variable a : Reel 
Debut 

Ecrire « Entrez un nombre compris entre 1 et 3 : » 
Lire a 

Tant Que a < 1 OU a > 3 

Ecrire « Veuillez Saisir une valeur comprise entre 1 et 3 » 

Lire a 
Fin Tant Que 

Fin 

2. Le programme est : 
Variable a : Reel 
Debut 

Ecrire « Entrez un nombre compris entre 10 et 20 : » 
Lire a 

Tant Que a < 10 OU a > 20 
Sia< 10 Alors 

Ecrire « Plus grand ! » 
Sinon 

Ecrire « Plus petit ! » 
Fin Si 

Ecrire « Veuillez Saisir une valeur comprise entre 10 et 20 » 
Lire a 
Fin Tant Que 

Fin 

3. Le programme est : 
Variable a , i : Reel 
Debut 

Ecrire « Entrez un nombre » 
Lire a 

i^a+ 1 

Tant Que i < = a + 10 

Ecrire i 

i < — i -K 1 
Fin Tant Que 

Fin 

4. Le programme est : 

Variables i , a , max , pmax : Entiers 
DEBUT 

Ecrire « Entrez le nombre numero 1 » 
Lire a 

max <— a 
pmax <— 1 
i^- 1 
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TANT QUE a <> 0 

i < — i -K 1 

Ecrire « Entrez le nombre numero » , i 
Lire a 

SI a > max ALORS 

max <— a 

pmax <— i 
FIN SI 
FIN TANT QUE 

Ecrire « Le plus grand nombre est : » , max 
Ecrire « Sa position est : » , pmax 

FIN 

5. Le programme est : 

Variables prixlu , mdu , mpaye , reste : Entiers 
DEBUT 

Ecrire « Entrez le prix » 
Lire prixlu 
mdu <— 0 

mdu <— mdu + prixlu 
TANT QUE prixlu <> 0 

Ecrire « Entrez le prix » 

Lire prixlu 

mdu <— mdu + prixlu 
FIN TANT QUE 
Ecrire « Entrez le prix paye» 
Lire mpaye 
reste <— mpaye - mdu 
Ecrire « Le reste est : » , reste 

FIN 




1. le programme est : 
Variables a , compteur : Entiers 
Variable reponse : Chaine 
DEBUT 

compteur <— 0 
REPETER 

Ecrire « Entrez un nombre : » 

Lire a 

compteur <— compteur + 1 
Ecrire « Voulez-vous continuez Oui/Non ? » 
Lire reponse 
JUSQU'A reponse = « N » ou reponse = « n » 
Ecrire « Le nombre de valeurs saisies est : » , compteur 

FIN 

2. Le programme est : 
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Variables a , somme , moyenne , compteur : Entiers 
DEBUT 

compteur <— 0 
somme <— 0 
REPETER 

Ecrire « Entrez un nombre : » 

Lire a 

compteur <— compteur + 1 
somme <— somme + a 
JUSQUA a = 0 

Moyenne <— somme / (compteur - 1) 

Ecrire « La moyenne de valeurs saisies est : » , moyenne 

FIN 



3. le programme est : 
Variables a , npos , nneg : Entiers 
Variable reponse : Chaine 
DEBUT 

npos <— 0 
nneg <— 0 
REPETER 

Ecrire « Entrez un nombre : » 

Lire a 

SI a > 0 ALORS 

npos <— npos + 1 
SINON 

SI a < 0 ALORS 
nneg <— nneg + 1 

FIN SI 
FIN SI 

Ecrire « Voulez-vous continuez Oui/Non ? » 

Lire reponse 
JUSQU'A reponse = « N » ou reponse = « n » 
Ecrire « Le nombre de valeurs positives saisies est : » , npos 
Ecrire « Le nombre de valeurs negatives saisies est : » , nneg 

FIN 



4. Le programme est : 

Variables caractere , phrase : Chaines 

DEBUT 

phrase <— « » 
REPETER 

Ecrire « Entrez une caractere : » 

Lire caractere 

SI caractere = « 0 » ALORS 

caractere <— « » 
FIN SI 

phrase <— phrase +caractere 
JUSQU'A caractere = « . » 
Ecrire « La phrase resultante est : » , phrase 

FIN 
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1. La representation graphique du tableau X (4) apres execution du premier programme est : 



12 


5 


8 


20 



La representation graphique du tableau voyelle (6) apres execution du deuxieme programme est : 



a 


e 


i 


0 


u 


y 



2. L' execution du programme nous affichera successivement a l'ecran : 

4 25 9 100 16 4 

3. L' execution du programme nous affichera successivement a l'ecran : 

1 1 2 3 5 8 13 21 

4. Le programme est: 
Variables i , somme : ENTIERS 
Tableau T (19) : ENTIER 
DEBUT 

Ecrire « Entrez la taille du tableau : » 
Lire n 

POUR i = 0 A 19 

Ecrire « Entrez l'element » , i 

Lire T(i) 
FIN POUR 

somme <— 0 
POUR i = 0 A 19 

somme <— somme + T (i) 
FIN POUR 

Ecrire « La somme de tous les elements du tableau est : » , somme 

FIN 



5. Le programme est : 
Variables i , max, n : ENTIERS 
Tableau T (n) : ENTIER 
DEBUT 

Ecrire « Entrez la taille du tableau : » 
Lire n 

POUR i = 0 A n - 1 

Ecrire « Entrez l'element » , i 

Lire T(i) 
FIN POUR 

max <- T (0) 
i^0 

REPETER 

i«-i + 1 
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SI T (i) > max ALORS 

max <— T (i) 
FIN SI 
JUSUQ'A i = (N - 1) 

Ecrire «Le plus grand element est : » , max 

FIN 



6. Le programme est : 

Variables i , somme , moyenne , nsup : Reels 

Tableau Note (99) : Reel 

DEBUT 

POUR i = 0 A 99 

Ecrire « Entrez l'element » , i 

Lire T(i) 
FIN POUR 

somme <— 0 
POUR i = 0 A 99 
Lire Note (i) 

somme <— somme + Note (i) 
FIN POUR 

Moyenne <— somme / 100 
nsup <— 0 
POUR i = 0 A 99 

SI Note (i) > moyenne ALORS 
nsup <— nsup + 1 

FIN SI 
FIN POUR 

Ecrire « Le nombre de notes superieures a la moyenne est : » , nsup 

FIN 



7. Le programme est : 

Variables i , pmax , pmin, Min, Max, n : Entiers 

Tableau T (n) : Reel 

DEBUT 

Ecrire « Entrez la taille du tableau : » 
Lire n 

POUR i = 0 A n - 1 

Ecrire « Entrez l'element » , i 

Lire T(i) 
FIN POUR 

max <- T (0) 
min <- T (0) 
pmax <— 1 
pmin <— 1 
i^0 

REPETER 

i<-i+ 1 

SI T (i) > max ALORS 

pmax <— i 
FIN SI 

SI T (i) < min ALORS 

pmin <— i 
FIN SI 
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JUSUQ'A i = (N - 1) 

Ecrire « La position du plus grand element du tableau est : » , pmax 
Ecrire « La position du plus petit element du tableau est : » , pmin 

FIN 



8. Le programme est : 
Variables X ,i,Compt : Reels 
Variable N :ENTIER 
Tableau T (N) : Reel 
DEBUT 

Ecrire « Entrez le nombre X : » 
LireX 

Ecrire « Entrez la taille du tableau : » 
Lire n 

POUR i = 0 A n - 1 

Ecrire « Entrez l'element » , i 

Lire T(i) 
FIN POUR 
Compt<- 0 
POUR i = 0 A N - 1 

SI T (i) =X ALORS 
Compt <— compt + 1 

FIN SI 
FIN POUR 

Ecrire « Le nombre d' occurrences de cet elements du tableau est : » , compt 

FIN 

9. Le programme est : 

Variables i , n, nbP,nbImp : Entiers 

Tableau T (n) : Entier 

DEBUT 

Ecrire « Entrez la taille du tableau : » 
Lire n 

POUR i = 0 A n - 1 

Ecrire « Entrez l'element » , i 

Lire T(i) 
FIN POUR 

nblmp <— 0 
nbP<-0 

POUR i = 0 A n - 1 

Si T(i) MOD 2 = 0 Alors 

nbP <- nbP + 1 
Sinon 

nblmp <— nblmp + 1 
FIN Si 
FIN POUR 

Ecrire "Le nombre d' entiers impairs est: " , nblmp 
Ecrire "Le nombre d' entiers pairs est : " , nbP 

FIN 



10. Le programme est : 
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Variables i , n, nbPos, nbNeg, Vmoy_Pos, Vmoy_Neg, nbNull: Entiers 

Variables Som_Pos, Som_Neg : Entiers 

Tableau T (n) : Entier 

DEBUT 

Ecrire « Entrez la taille du tableau : » 
Lire n 

POUR i = 0 A n - 1 

Ecrire « Entrez l'element » , i 

Lire T(i) 
FIN POUR 

nbPos <— 0 
nbNeg <— 0 
Vmoy_Pos < — 0 
Vmoy_Neg < — 0 
nbNull <— 0 
Som_Pos <— 0 
Som_Neg < — 0 

POUR i = 0 A n - 1 

SI t(i) = 0 Alors 

nbNull <— nbNull + 1 
SinonSi t(l) > 0 Alors 
nbPos < — nbPos + 1 
Som_Pos < — Som_Pos + t (i) 
Sinon 

nbNeg < — nbNeg + 1 
Som_Neg < — Som_Neg + t (1) 
FIN Si 
FIN POUR 

Vmoy_Pos < — Som_Pos / nbPos 
Vmoy_Neg < — Som_Neg / nbNeg 

Ecrire "Le nonibre d' elements nuls est : " , nbNull 

Ecrire "La valeur moyenne des elements positifs est : " , Vmoy_Pos 

Ecrire "La valeur moyenne des elements negatifs est : " , Vmoy_Neg 

FIN 

11. Le programme est : 

Variables i , note , nnote , snote , smoyenne , cmoyenne : Entiers 

Tableau moy (25) : Reel 

DEBUT 

POUR i = 1 A 25 

snote <— 0 
nnote <— 0 
REPETER 

Ecrire « Notes de l'eleve numero » , i 

Lire note 

SI note o-l ALORS 

snote <— snote + note 

nnote <— nnote + 1 
FIN SI 
JUSQU A note = -1 
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moy (i) = snote / nnote 
smoyenne = smoyenne + moy (i) 

FIN POUR 

Ecrire « Moyennes » 

POUR i = 1 A 25 

Ecrire « Eleve numero » , i , « : » , moy (i) 

FIN POUR 

cmoyenne = smoyenne / 25 

Ecrire « Moyenne de la classe : » , cmoyenne 

FIN 




1. Le programme est : 
Variables i , n : Entiers 
Tableau T(n), Tinvers(n) : Entier 
DEBUT 

Ecrire « Entrez la taille du Tableau : » 
Lire n 

POURi = 0 An- 1 

Ecrire « Entrez l'element » , i 

Lire T(i) 
FIN POUR 

POURi=0 An- 1 

Tinvers(i) <— T(n - i - 1) 
FIN POUR 

POURi=0 An- 1 
Ecrire Tinves(i) 
FIN POUR 

FIN 

2. Le programme est : 

Variables i , n, elt, pos, Temp : Entiers 

Tableau T(n) : Entier 

DEBUT 

Ecrire « Entrez la taille du Tableau : » 
Lire n 

POURi=0 An- 1 

Ecrire « Entrez l'element » , i 

Lire T(i) 
FIN POUR 

n^n+ 1 

Ecrire « Entrez l'element a ajouter : » 
Lire elt 

Ecrire « Entrez sa position : » 
Lire pos 

POUR i = pos A n - 1 
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Temp <— T(i) 

T(i) <- elt 

elt <— Temp 
FIN POUR 
POUR i = 0 A n - 1 

Ecrire T(i) 
FIN POUR 

FIN 

3. Le programme est : 

Variables i , j, n, elt, Temp : Entiers 

Tableau T(n) : Entier 

DEBUT 

Ecrire « Entrez la taille du Tableau : » 
Lire n 

POUR i = 0 A n - 1 

Ecrire « Entrez l'element » , i 

Lire T(i) 
FIN POUR 

n^n+ 1 

Ecrire « Entrez l'element a ajouter : » 
Lire elt 
T(n-l) <-ell 

POURi = n -l Alpas -1 
POURj= 1 Ai 

Si T(j - 1) > T(j) Alors 
Temp <— T(j - 1) 
T(j-1) <-T(j) 
T(i) <— Temp 
FIN Si 
FIN POUR 
FIN POUR 
POUR i = 0 A n - 1 

Ecrire T(i) 
FIN POUR 

FIN 

4. Le programme est : 

Variables i , n, elt, Temp : Entiers 

Tableau T(n) : Entier 

DEBUT 

Ecrire « Entrez la taille du Tableau : » 
Lire n 

POUR i = 0 A n - 1 

Ecrire « Entrez l'element » , i 

Lire T(i) 
FIN POUR 

Ecrire « Entrez l'element a supprimer : » 
Lire elt 

POUR i = 0 A n - 1 
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Si elt = T(i) Alors 

pos <— i 
FIN Si 
FIN POUR 
POUR i = pos A n - 1 

T(i) = T(i+l) 
FIN POUR 
POUR i = OA n-2 

Ecrire T(i) 
FIN POUR 

FIN 

5. Le programme est : 
Variables i , n, j: Entiers 

Tableau Tcal(n+1), Taff(n+1) : Entier 
DEBUT 

Ecrire « Entrez la puissance : » 

Lire n 

i^- 1 

Tcal(0) <- 1 
Tcal(l) <- 1 

Ecrire Tcal(0) , " " , Tcal(l) 
i^i+ 1 

TANT QUE i < n 
Taff(0) <- 1 
POURj= 1 Ai 

Taff(j) <- Tcal(j) + Tcal(j - 1) 
FIN POUR 
POURj=0 Ai 

Ecrire Taff(i) 
FIN POUR 
POURj= 1 Ai 

Tcal(j) <- Taff(j) 
FIN POUR 
i^i+ 1 
FIN TANT QUE 

FIN 

6. Le programme est : 
Variables i , n, c: Entiers 
Tableau T (n), Taff(n) : Entier 
DEBUT 

Ecrire « Entrez la taille du tableau : » 
Lire n 

c^O 

POUR i = 0 A n - 1 

Ecrire « Entrez l'element » , i 

Lire T(i) 
FIN POUR 
POUR i = 0 A n - 1 
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Si T(i) MOD 2 = 0 Alors 
Taff( c ) <- T(i) 
c <— c + 1 
FIN Si 
FIN POUR 
POUR i = 0 A n - 1 

Si T(i) MOD 2 <> 0 Alors 
Taff( c ) <- T(i) 
c <— c + 1 
FIN Si 
FIN POUR 
POURj=0 An- 1 

Ecrire Taff(i) 
FIN POUR 

FIN 

7. Le programme est : 
Variables i , n, s : Entiers 
Tableau U(n), V(n) : Entier 
DEBUT 

s^O 

Ecrire « Entrez la taille du tableau : » 
Lire n 

POUR i = 0 A n - 1 

Ecrire « Entrez l'element » , i 

Lire U(i) 
FIN POUR 
POUR i = 0 A n - 1 

Ecrire « Entrez l'element » , i 

Lire V(i) 
FIN POUR 
POUR i = 0 A n - 1 

s <— s + U(i) * V(i) 

FIN POUR 

Ecrire "La somme est: " , s 

FIN 

8. Le programme est : 

Variables i , n, c, pos, max : Entiers 

Tableau T (n) : Entier 

DEBUT 

Ecrire « Entrez la taille du tableau : » 
Lire n 

c «- 1 
max <— 0 

POUR i = 0 A n - 1 

Ecrire « Entrez l'element » , i 

Lire T(i) 
FIN POUR 
POUR i = 1 A n - 1 
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Si T(i) =T(i-l) Alors 
c <— c + 1 
Sinon 

c «- 1 
FIN Si 
Si c> max Alors 
max <— c 
pos <— i - c + 2 
FIN Si 
FIN POUR 

Ecrire " Le plus long plateau commence a l'indice ", pos , " et il est de longueur ", 
max 

FIN 

9. Le programme a est : 
Variables i , n, j, Temp : Entiers 
Tableau T (n) : Entier 
DEBUT 

Ecrire « Entrez la taille du tableau : » 
Lire n 

POUR i = 0 A n - 1 

Ecrire « Entrez l'element » , i 

Lire T(i) 
FIN POUR 

POURi = n- 1 A 1 pas-1 
POURj= 1 Ai 

Si T(j - 1) > T(j) Alors 
Temp < — T(j - 1) 

T(j-1) <-TG) 
T(i) <— Temp 
FIN Si 
FIN POUR 
FIN POUR 
POUR i = 0 A n - 1 

Ecrire T(i) 
FIN POUR 

FIN 

Le programme b est : 

Variables i , n, m, j, Temp : Entiers 

Tableau T (n) : Entier 

DEBUT 

Ecrire « Entrez la taille du tableau : » 
Lire n 

POUR i = 0 A n - 1 

Ecrire « Entrez l'element » , i 

Lire T(i) 
FIN POUR 
POURi = 0 A n-2 

in <— i 
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POURj=i+ 1 A n- 1 
SiT(j) < T(m)Alors 
Temp <— T(m) 
T(m) <— T(j) 
T(j) <- Temp 
m <— i 
FIN Si 
FIN POUR 
FIN POUR 
POUR i = 0 A n - 1 

Ecrire T(i) 
FIN POUR 

FIN 

Le programme c est : 
Variables i , n, elt, j : Entiers 
Tableau T (n) : Entier 
DEBUT 

Ecrire « Entrez la taille de tableau : » 
Lire n 

POUR i = 0 A n - 1 

Ecrire « Entrez l'element » , i 

Lire T(i) 
FIN POUR 
POUR i = 1 A n - 1 

elt <- T(i) 

j <~ i 

TANT QUE T(j - 1) > elt et j > 0 

T(j) <— T(j - 1) 

J <-j-l 
Si j = 0 Alors 

Stop TANT QUE 
FIN Si 
FIN TANT QUE 
TO) <- elt 
FIN POUR 
POUR i = 0 A n - 1 

Ecrire T(i) 
FIN POUR 

FIN 

10. Variables i, n, V: Entiers 
Tableau T (n) : Entier 
DEBUT 

Ecrire « Entrez la taille du tableau : » 
Lire n 

POUR i = 0 A n - 1 

Ecrire « Entrez l'element » , i 

Lire T(i) 
FIN POUR 
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V <- T(n - 1) 

Ecrire " La valeur du dernier entier est : " , V 

FIN 

11. Variables i, n, x, D, Min: Entiers 
Tableau T (n), Td (x) : Entier 
DEBUT 

Ecrire « Entrez la taille du tableau : » 
Lire n 

POUR i = 0 A n - 1 

Ecrire « Entrez l'element » , i 

Lire T(i) 
FIN POUR 

x <— x - 1 

Ecrire " Entrez D : " 
LireD 

POUR i = 0 A n - 1 
Si T(i) > D Alors 
x <— x + 1 

Redimensionne Td(x) 
Td(x)<-T(i) 
FINSI 
FIN POUR 

Min<- Td(0) 

POUR i = 0 A TdLength - 1 

Si Td(i) < Min Alors 
Min<- Td(i) 

FINSI 
FIN POUR 

Ecrire " La petite duree superieur a D est : " Min 

FIN 

12. Variables i , n,: Entiers 
Tableau Test : Boolean 
DEBUT 

Ecrire « Entrez la taille du tableau : » 
Lire n 

POUR i = 0 A n - 1 

Ecrire « Entrez l'element » , i 

Lire T(i) 
FIN POUR 
POUR i = 0 A n - 1 

Si T(i) < 0 Alors 
Test «- Faux 

FINSI 
FIN POUR 
Si Test = Vrai Alors 

Ecrire " la sequence comporte que des entiers positifs." 
SINON 

Ecrire " la sequence comporte des entiers positifs et negatifs." 
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FINSI 

FIN 

13. Variables i , n, m, Temp, j, c, s : Entiers 
Entiers Tl(n), T2(m), T(s) : Variables 
DEBUT 

Ecrire « Entrez la taille du tableau 1 : » 
Lire n 

POUR i = 0 A n - 1 

Ecrire « Entrez l'element » , i 

Lire Tl(i) 
FIN POUR 

c <- 0 

Ecrire « Entrez la taille du tableau 2 : » 
Lire m 

POURi = 0 Am- 1 

Ecrire « Entrez l'element » , i 

Lire T2(i) 
FIN POUR 
s <— m + n 
POUR i = 0 A n - 1 

T(i) <- Tl(i) 
FIN POUR 
POUR i = n A s 

T(i) <- T2(c) 

c <— c + 1 
FIN POUR 

POURi=s- 1 A 1 pas-1 
POURj= 1 Ai 

Si T(j - 1) > T(j) Alors 
Temp <— T(j - 1) 
T(j-1) <-T(j) 
T(i) <— Temp 
FIN Si 
FIN POUR 
FIN POUR 
POUR i = 0 A s - 1 

Ecrire T(i) 
FIN POUR 

FIN 

14. Variables i , j, c, n : Entiers 
Variables T(n) : Entiers 
Variables ch : chaine de caractere 
DEBUT 

Ecrire « Entrez la taille du tableau 1 : » 
Lire n 

POUR i = 0 A n - 1 

Ecrire « Entrez l'element » , i 
Lire T (i) 
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FIN POUR 
POUR i = 0 A n - 1 

ch <- T(i) 
c <- 0 

POUR j = 0 A ch.Length - 1 

Si ch(j) = " a " ou ch(j) = "A" Alors 

c <— c + 1 
FIN Si 
FIN POUR 
Si c>= 3 Alors 

Ecrire T(i) 
FINSI 
FIN POUR 

FIN 

15. Variables i , c : Entiers 
Variables ch, s : chaine de caractere 
DEBUT 

Ecrire « Entrez la chaine: » 
Lire ch 
s<- ch(0) 
c<- 0 

POUR i = 1 A ch.Length - 1 
Si ch(i) = " " Alors 

Si sh(i+ 1) <> s Alors 

c <— c + 1 
End If 
End If 
FIN POUR 
Si c = 0 Alors 

Ecrire" Le texte est un tautogramme " 
SINON 

Ecrire" Le texte n'est pas un tautogramme " 
FINSI 

FIN 

16. Variables i, j, n, s, c, m : Entiers 
Tableau T (c) ,Tl(n),T2(m) : Entier 
DEBUT 

Ecrire « Entrez la taille du tableau Tl : » 
Lire n 

POUR i = 0 A n - 1 

Ecrire « Entrez l'element » , i 

Lire Tl(i) 
FIN POUR 

Ecrire « Entrez la taille du tableau T2 : » 
Lire m 

POURi = 0 Am- 1 

Ecrire « Entrez l'element » , i 
Lire T2(i) 
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FIN POUR 

S ^0 
c^O 

POUR i = 0 A n - 1 
POURj = 0 Am- 1 

Si TICS; = T2(j) Alors 
T (c) = Tl (s) 

C+ 1 

Redimensionne T (c) 
FIN Si 
FIN POUR 
S + 1 
FIN POUR 
POUR i = 0 A C - 1 

Ecrire T (i) 
FIN POUR 

FIN 



17. Variables a, b, i, j, x, y, z, PGDC : Entiers 
Variables Tl(x), T2(y), T(z): Entiers 
DEBUT 

Ecrire « Entrez a : » 

Lire a 

Ecrire « Entrez b : » 
Lire b 

z^O 

POUR i = 1 A a 

Si a Mod 1=0 Alors 
Redimensionne Tl(x) 
Tl(x) <- i 

X <— X + 1 

FIN Si 
FIN POUR 
POUR i = 1 A b 

Si b Mod i = 0 Alors 
Redimensionne T2(y) 
T2(y) i 

y <- y+ 1 

FIN Si 
FIN POUR 
POUR i = 0 A x - 2 

POURj=0 Ay- 2 

Si TICi; = T2(j) Alors 
Redimensionne T (z) 
T (z) = Tl (i) 
z <— z + 1 
FJN Si 
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FIN POUR 
FIN POUR 

PGDC «- T(0) 
POUR i = 0 A T.Length - 1 
Si T(i) > PGDC Alors 

PGDC 4- T(i) 
FJN Si 
FIN POUR 

Ecrire «le plus grand diviseur commun est : » , PGDC 

FIN 



1. Le programme est : 
Variables i , j, n, m, Som : Entiers 
Tableau T (n , m) : Reel 
DEBUT 

Som <— 0 

Ecrire « Entrez le nombre de ligne : » 
Lire n 

Ecrire « Entrez le nombre de colonne : » 
Lire m 

POURi=0An-l 
POURj = 0 Am i 

Ecrire « Entrez l'element » , i, " ; " j 
LireT(iJ) 
FIN POUR 
FIN POUR 
POUR i = 0 A n - 1 
POURj = 0 Am - 1 

Som <— Som + T(i, j) 
FIN POUR 
FIN POUR 

Ecrire «La somme est : » , Som 

FIN 



2. Le programme est : 
Variables i , j, n, m, Som : Entiers 
Tableau T (n , m) : Reel 
DEBUT 

Som <— 0 

Ecrire « Entrez le nombre de ligne : » 
Lire n 

Ecrire « Entrez le nombre de colonne : » 
Lire m 

POUR i = 0 A n - 1 
POURj = 0 Am - 1 
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Ecrire « Entrez l'element » , i, " ; " j 
LireT(iJ) 
FIN POUR 
FIN POUR 
POUR i = 0 A n - 1 
Som <— 0 

POURj = 0 Am - 1 

Som <— Som + T(i, j) 
FIN POUR 

Ecrire "La somme de " , i , " ligne est : " , Som 
FIN POUR 

FIN 



3. Le programme est : 
Variables i , j, n, Som : Entiers 
Tableau T (n , n) : Reel 
DEBUT 

Som <— 0 

Ecrire « Entrez le nombre de ligne et colonne : » 
Lire n 

POUR i = 0 A n - 1 
POURj = 0 An- 1 

Ecrire « Entrez l'element » , i, " ; " j 
LireT(iJ) 
FIN POUR 
FIN POUR 
POUR i = 0 A n - 1 

Som <— Som + T(i, i) 
FIN POUR 

Ecrire " La somme des elements de la diagonale est : " , Som 

FIN 



4. Le programme est : 
Variables i , j, n, m, Pro : Entiers 
Tableau T (n , m) : Reel 
DEBUT 

Pro <- 1 

Ecrire « Entrez le nombre de ligne : » 
Lire n 

Ecrire « Entrez le nombre de colonne : » 
Lire m 

POUR i = 0 A n - 1 
POURj = 0 Am - 1 

Ecrire « Entrez l'element » , i, " ; " j 
LireT(iJ) 
FIN POUR 
FIN POUR 
POUR i = 0 A n - 1 
POURj = 0 Am - 1 

Pro <— Pro * T(i, j) 
FIN POUR 
FIN POUR 
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Ecrire «Le produit est : » , Pro 

FIN 



5. Le programme est : 

Variables i , j, n, m, S : Entiers 

Tableau T (n , m), V (m, 1) , P (m, 1) : Reel 

DEBUT 

Ecrire « Entrez le nombre de ligne : » 
Lire n 

Ecrire « Entrez le nombre de colonne : » 
Lire m 

POURi=0An-l 
POURj = 0 Am i 

Ecrire « Entrez l'element » , i, " ; " j 
LireT(iJ) 
FIN POUR 
FIN POUR 
POUR i = 0 A m - 1 

Ecrire « Entrez l'element » , i, " ; " 1 
Lire V(i, 0) 
FIN POUR 
POUR i = 0 A n - 1 
S^O 

POURj = 0 Am - 1 

S <- S + (T(i, j) * V(j, 0)) 
FIN POUR 
P(i, 0) <- s 
FIN POUR 
POUR i = 0 A n - 1 
Ecrire P(i, 0) 
FIN POUR 

FIN 



6. Le programme est : 

Variables i , j, n, m : Entiers 

Tableau T (n , m), V (n, m) , P (n, m) : Reel 

DEBUT 

Ecrire « Entrez le nombre de ligne : » 
Lire n 

Ecrire « Entrez le nombre de colonne : » 
Lire m 

POUR i = 0 A n - 1 
POURj = 0 Am - 1 

Ecrire « Entrez l'element » , i, " ; " j 
LireT(iJ) 
FIN POUR 
FIN POUR 
POUR i = 0 A n - 1 
POURj = 0 Am - 1 

Ecrire « Entrez l'element » , i, " ; " j 
LireV(iJ) 
FIN POUR 
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FIN POUR 
POUR i = 0 A n - 1 
POURj = 0 Am - 1 

P(±, j) ^(T(±, j) * V(i, j)) 
FIN POUR 
FIN POUR 
POUR i = 0 A n - 1 
POURj = 0 Am - 1 

Ecrire P(i, j) 
FIN POUR 
FIN POUR 

FIN 



7. Le programme est : 
Variables i , j, n, m, C: Entiers 
Tableau T (n , m) : Reel 
DEBUT 

C^O 

Ecrire « Entrez le nombre de ligne : » 
Lire n 

Ecrire « Entrez le nombre de colonne : » 
Lire m 

POUR i = 0 A n - 1 
POURj = 0 Am - 1 

Ecrire « Entrez l'element » , i, " ; " j 
LireT(iJ) 
FIN POUR 
FIN POUR 
POUR i = 0 A n - 1 
POURj = 0 Am - 1 

Si T(i, j) <> T(j, i) Alors 

C^- C + 1 
FIN Si 
FIN POUR 
FIN POUR 

Si (C <> 0) OU (n <> m) Alors 

Ecrire "Pas caree et symetrique" 

Sinon 

Ecrire "Caree et symetrique" 
FIN Si 

FIN 



8. Le programme est : 
Variables i , j : Entiers 
Tableau T (10 , 10) : Reel 
DEBUT 

POUR i = 0 A 10 
POURj = 0 A 10 

T(i,j)<-i * j 
FIN POUR 
FIN POUR 
POUR i = 0 A 10 
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POURj = 0A10 

Ecrire T(i,j) 
FIN POUR 
FIN POUR 

FIN 



9. Le programme est : 

Variables n, m, i, j, Pi_Min, Pj_Min, Pi_Max, Pj_Max, Max, Min : Entiers 

Tableau T (n , m) : Reel 

DEBUT 

Pi_Max <— 0 

Pj_Max <— 0 

P±_M±n <— 0 

Pj_Min <— 0 

Max = t(0, 0) 

Min = t(0, 0) 

Ecrire « Entrez le nombre de ligne : » 
Lire n 

Ecrire « Entrez le nombre de colonne : » 
Lire m 

POURi=0An-l 
POURj = 0Am-l 

Ecrire « Entrez l'element » , i, " ; " j 
Lire T(i,j) 
FIN POUR 
FIN POUR 
POURi=0An-l 
POURj = 0Am-l 

Si t (i, j) > Max Alors 
Max <— t (±, j) 
Pi_Max <— i 
Pj_Max <— j 
FIN Si 

Si t(i, j) < Min Alors 
Min <- t(i, j) 
Pi_Min <— i 
Pj_Min <— j 
FIN Si 
FIN POUR 
FIN POUR 

Ecrire " le plus grand element est : " , Max 

Ecrire " sa postion est : " , "T ( " , Pi_Max, " ; ", Pj_Max, ")") 
Ecrire " le petit element est : " , Min 

Ecrire " sa postion est : " , "T ( " , Pi_Min, " ; ", Pj_Min, ")") 

FIN 



10. Le programme est : 
Variables i , j, P : Entiers 
Tableau T (P ,P) : Reel 
DEBUT 

Ecrire « Entrez la puissance : » 
Lire p 
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T(0, 0) «- 1 
Tl, 0) «- 1 
T(l,l)<-1 
POUR i = 2 A n 
POURj = 0 Ai 

T(i,j)«- t(± - l, j) + t(i - l, ± - j) 
FIN POUR 
FIN POUR 
POUR i = 0 A n 
POURj = 0 Ai 

Ecrire T(i,j) 
FIN POUR 
FIN POUR 

FIN 



11. Le programme est : 

Variables n, i, j, c, cl, s, si, Cmpt : Entiers 

Tableau T (n , n) : Reel 

DEBUT 

Cmt<- 0 

Ecrire « Entrez le nombre de ligne et colonne? : » 
Lire n 

POUR i = 0 A n - 1 
POURj = 0 An- 1 

Ecrire « Entrez l'element » , i, " ; " j 
Lire T(i,j) 
FIN POUR 
FIN POUR 
si <- 0 
cl <- 0 

POURj=0An-l 

si <- si + t(j, j) 
cl <— cl + t(j, n - 1 - j) 
FIN POUR 
Si SI = cl Alors 

Cmpt <— Cmpt + 2 
FJN Si 

POURi=0An-l 
s <- 0 
c <- 0 

POURj=0An-l 

s <— s t(i, j; 
c <^ c + t(j, i) 
FIN POUR 

Si (s = c) And (s = si) Alors 

Cmpt <— Cmpt + 2 

FJN Si 
FIN POUR 

Si Cmpt = fn * 2) + 2 Alors 
Ecrire "Carre magique " 

Sinon 

Ecrire "Carre pas magique " 
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FIN Si 

FIN 



12. Le programme est : 

Variables i,j,L,C,x,y: Entiers 

Tableaux M(L , C) , V(L * C) : chaine de caractere 

DEBUT 

y^L*C 

Ecrire « Entrez L : » 
Lire L 

Ecrire « Entrez C : » 
LireC 

TANT QUE (L > 10 Ou C > 10) Ou (L < 0 Ou C < 0) 

Ecrire «SVP, L et C doivent etre compris entre let 10» 
Ecrire « Entrez L : » 
Lire L 

Ecrire « Entrez C : » 
LireC 
FIN TANT QUE 
POUR i = 0 A L - 1 
POURj = 0 AC - 1 

Ecrire "M(" , i + 1 , " ; " , j + 1 , ") = " 
Lire M(i , j) 
FIN POUR 
FIN POUR 
POUR i = 0 A L - 1 
POURj = 0 AC - 1 
V(x) <- M(i , j) 

X <— X + 1 

FIN POUR 
FIN POUR 
POUR i = 0 A y - 1 

Ecrire V( i ) 
FIN POUR 

FIN 



13. Le programme est : 

Variables i , j , N , M : Entiers 

Tableaux tA(N , M) , A(M , N) : chaine de caractere 

DEBUT 

Ecrire « Entrez N : » 

Lire N 

Ecrire « Entrez M : » 
Lire M 

POUR i = 0 A N - 1 
POURj = 0 AM - 1 

Ecrire "tA(" , i+ 1 , " ; " , j + 1 , ") = " 
Lire tA(i , j) 
FIN POUR 
FIN POUR 
POUR i = 0 A N - 1 
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POURj = 0 AM - 1 

A(j , i) <- tA(i , j) 
FIN POUR 
FIN POUR 
POUR i = 0 A M - 1 
POURj = 0 AN - 1 

Ecrire A(i , j) 
FIN POUR 
Ecrire " " 
FIN POUR 

FIN 

14. Le programme est : 
Variables i , j , N , M : Entiers 

Tableaux A(N , M) , B(N , M) , A_B(N , M) : chaine de caractere 
DEBUT 

Ecrire « Entrez N : » 

Lire N 

Ecrire « Entrez M : » 
Lire M 

POUR i = 0 A N - 1 
POURj = 0 AM - 1 

Ecrire "A(", i+ 1 , " ; " , j + 1 , ") = " 
Lire A(i , j) 
FIN POUR 
FIN POUR 
POUR i = 0 A N - 1 
POURj = 0 AM - 1 

Ecrire "B(" , i + 1 , " ; " , j + 1 , ") = " 
Lire B(i , j) 
FIN POUR 
FIN POUR 
POUR i = 0 A N - 1 
POURj = 0 AM - 1 

A_B(i , j) <- A(i , j) , " + " , B(i , j) 
FIN POUR 
FIN POUR 
POUR i = 0 A N - 1 
POURj = 0 AM - 1 
Ecrire A_B(i , j) 
FIN POUR 
Ecrire " " 
FIN POUR 

FIN 



Page 59 



marouan.ts@gmail.fr 



ALGORITHM IQUE 2009 




1. Le programme est : 
Variables i , P , S : Entiers 
DEBUT 

S ^0 

Ecrire « Entrez la puissance : » 
LireP 

POUR i = 1 A P 

S ^S + (3 
FIN POUR 
Ecrire "S est: ",S 

FIN 



2. Le programme est : 
Variables i ,x, P , S : Entiers 
DEBUT 

S ^0 

Ecrire « Entrez la puissance : » 
LireP 

Ecrire « Entrez la valeur de X : » 
LireX 

POUR i = 0 A P 

S^S+ (x (2ti >) 
FIN POUR 
Ecrire "S est: ",S 

FIN 



3. Le programme est : 
Variables i , N , S : Entiers 
DEBUT 

S ^0 

Ecrire « Entrez la valeur de N : » 
Lire N 

POUR i = 1 A N 

S (1/1) 
FIN POUR 
Ecrire " S est : " , S 

FIN 

4. Le programme est : 
Variables i , N , S : Entiers 
DEBUT 

S <- 1 

Ecrire « Entrez la valeur de N : » 
Lire N 

POUR i = 1 A N 

S*-S + (l / (2*1)) 
FIN POUR 
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Ecrire "S est: ",S 

FIN 

5. Le programme est : 
Variables i , N , S : Entiers 
DEBUT 

S «- 1 

Ecrire « Entrez la valeur de N : » 
Lire N 

POUR i = 1 A N 

S^S - (1 / (2 * i)) + (1 / (2 * i + 1)) 
FIN POUR 
Ecrire "S est: ",S 

FIN 

6. Le programme est : 
Variables i , N , S : Entiers 
DEBUT 

S «- 1 

Ecrire « Entrez la valeur de N : » 
Lire N 

POUR i = 0 A N 

S^S + (1 / (1 + 1)) 
FIN POUR 
Ecrire "S est: ",S 

FIN 

7. Le programme est : 
Variables i , N , S : Entiers 
DEBUT 

S ^ 1 

Ecrire « Entrez la valeur de N : » 
Lire N 

POUR i = 1 A N 

S^S - (1 / (3 * i)) + (1 / (3 * i + 1)) 
FIN POUR 
Ecrire "S est : " , S 

FIN 

8. Le programme est : 
Variables i , N ,X , S : Entiers 
DEBUT 

S ^0 

Ecrire « Entrez la valeur de X : » 
LireX 

Ecrire « Entrez la valeur de N : » 
Lire N 

POUR i = 0 A N 

S <- S + ( (X) 12 * 1 + 1} ) / (2 * i + 1) 
FIN POUR 
Ecrire "S est: ",S 

FIN 
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9. Le programme est : 
Variables i , N , S : Entiers 
DEBUT 

S «- 1 

Ecrire « Entrez la valeur de N : » 
Lire N 

POUR i = 1 A N 

S <- (3 * s + 5) 
FIN POUR 
Ecrire "S est: ",S 

FIN 



10. Le programme est : 
Variables i , N, X ,Y , S : Entiers 
DEBUT 

X<- 1/2 
Y«- 1 

Ecrire « Entrez la valeur de N : » 
Lire N 

POUR i = 1 A N 

S <- (3 * y) - (5 * x) 

Y^S 
FIN POUR 
Ecrire "S est: ",S 

FIN 



11. Le programme est : 
Variables i , N, X , F : Entiers 
Variables e : reel 
DEBUT 

e<- 1 
F<- 1 



Ecrire « Entrez la valeur de X : » 
LireX 

Ecrire « Entrez la valeur de N : » 
Lire N 

POUR i = 1 A N 

F <— F * i 

e^ e + ((^)/F) 
FIN POUR 
Ecrire " e" est : " , e 

FIN 



12. Le programme est : 
Variables i , X , F : Entiers 
Variables e , EPS : reel 
DEBUT 

e^ 1 
F<- 1 
i<- 1 

Ecrire « Entrez la valeur de X 
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LireX 

Ecrire « Entrez la valeur de EPS : » 

Lire EPS 

Repeter 

F <— F * i 

e«- e + ((^)/F) 

i«-i + 1 
Jusqu'ale < EPS) 
Ecrire " e" est : " , e 

FIN 

13. Le programme est : 

Variables i , X , F , P , N, j, k, : Entiers 

Variables S : reel 

DEBUT 

S ^0 

Ecrire « Entrez la valeur de X : » 
LireX 

Ecrire « Entrez la valeur de N : » 
Lire N 

POUR i = OA N 

F<- 1 
P<- 1 

POUR j = 1 A (4i+ 1) 

F <— F * j 
FIN POUR 

POUR k = 1 A (4i + 3) 

P^P * k 
FIN POUR 

S <- S + ((X« * 1 + v ) /F) - (X< 4 * 1 + 1} ) /P) 

FIN POUR 
Ecrire "S est: ",S 

FIN 
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i. 

Module Module 1 

Dim A, B As Integer 
Sub Main () 
A = 1 
B = A + 3 
A = 3 

Console .WriteLine ( "La valeur des variables est : " & " A = " & A 
& " ; B = " & B) 

Console . ReadLine () 
End Sub 
End Module 

2. 

Module Module 1 

Dim A, B, C As Integer 
Sub Main () 
A = 5 
B = 3 
C = A + B 
A = 2 
C = B - A 

Console .WriteLine ( " La valeur des variables est : " & " A = " & A 
& " ; B = " & B & " ; C = " & C) 

Console . ReadLine () 
End Sub 
End Module 

3. 

Module Module 1 

Dim A, B As Integer 
Sub Main () 
A = 5 
B = A + 4 
A = A + 1 
B = A - 4 

Console .WriteLine ( "La valeur des variables est : " & " A = " & A 
& " ; B = " & B) 

Console . ReadLine () 
End Sub 
End Module 

4. 

Module Module 1 

Dim A, B, C As Integer 
Sub Main () 
A = 3 
B = 10 
C = A + B 
B = A + B 
A = C 



Page 65 



marouan.ts@gmail.fr 



ALGORITHM IQUE 



2009 



Console .WriteLine ( "La valeur des variables est : " & " A = " & A 
& " ; B = " & B & " ; C = " & C) 

Console . ReadLine () 
End Sub 
End Module 

5. 

Module Module 1 

Dim A, B As Integer 
Sub Main () 
A = 5 
B = 2 
A = B 
B = A 

Console .WriteLine ( "La valeur des variables est : " & " A = " & A 
& " ; B = " & B) 

'Les deux dernieres instructions ne permettent done pas d' echanger les 
deux 'valeurs de B et A, 'puisque (1) 'une des deux valeurs (celle de A) 
'est ici ecrasee. 

'Si(l) 'on inverse les deux dernieres instructions, cela ne changera rien 
' du tout, hormis le fait que cette fois c y est la valeur de B qui sera 
'ecrasee . 

Console . ReadLine () 

End Sub 
End Module 

6. 

Module Module 1 

Dim A, B, C As Integer 
Sub Main () 
C = A 
A = B 
B = C 

'On est oblige de passer par une variable dite temporaire (la variable 
C). 

Console . ReadLine () 
End Sub 
End Module 

7. 

Module Module 1 

Dim A, B, C, D As Integer 
Sub Main () 
D = C 
C = B 
B = A 
A = D 

'En fait, quel que soit le nombre de variables, une seule variable 
temporaire suffit . 

Console . ReadLine () 
End Sub 
End Module 

8. 

Module Module 1 

Dim A, B, C As String 
Sub Main () 

A = "423" 
B = "12" 
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C = A + B 

Console. WriteLlne ("Resultat est : " & C) 

'On peut concatener ces variables. A la fin de 1' algorithme, C 
vaudra done "42312" . 

Console . ReadLine () 
End Sub 
End Module 



9. 

Module Module 1 

Dim A, B, C As String 
Sub Main () 

A = "423" 
B = "12" 
C = A & B 

Console. WriteLine ("Resultat est : " & C) 

'On peut concatener ces variables. A la fin de 1 ' algorithme , C 
vaudra done "42312". 

Console . ReadLine () 
End Sub 
End Module 




i. 

Module Module 1 

Dim Val, Double_ As Integer 
Sub Main () 

Val = 231 
Double_ = Val * 2 

Console. WriteLine ("Val est : " & Val) 
Console .WriteLine ("Double est : " & Double_) 
Console . ReadLine () 
End Sub 
End Module 



2. 

Module Module 1 

Dim A, B, Somme As Integer 
Sub Main () 

Console .Write ( "Entrez le premier nombre :") 
A = Console .ReadLine 

Console .Write ("Entrez le deuxieme nombre :") 
B = Console .ReadLine 
Somme = A + B 

Console .WriteLine ( "La somme de ces deux nombres est : " & Somme) 
Console . ReadLine () 
End Sub 
End Module 



3. 

Module Module 1 

Dim pht, ttva r pttc As Double 
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Dim nb As Integer 
Sub Main () 

Console .Write ( "Entrez le prix hors taxes :") 
pht = Console . ReadLine 

Console .Write ( "Entrez le nombre d' articles :") 
nb = Console . ReadLine 

Console. Write ("Entrez le taux de TVA :") 
ttva = Console . ReadLine 
pttc = nb * pht * (1 + ttva) 

Console .WriteLine ("Le prix toutes taxes est : " & pttc) 
Console . ReadLine () 
End Sub 
End Module 

4. 

Module Module 1 

Dim X, inverse As Double 
Sub Main () 

Console .Write ( "Entrez une valeur :") 
X = Console .ReadLine 
inverse = 1 / X 

Console .WriteLine ("L f inverses est : " & inverse) 
Console . ReadLine () 
End Sub 
End Module 

5. 

Module Module 1 

Dim mat r phy, ang, fra, hg, moyenne As Double 
Sub Main () 

Console .Write ("Entrez la note de math :") 
mat = Console .ReadLine 

Console .Write ("Entrez la note de physique :") 
phy = Console .ReadLine 

Console .Write ("Entrez la note de frangais :") 
fra = Console .ReadLine 

Console .Write ("Entrez la note d f anglais :") 
ang = Console . ReadLine 

Console .Write ("Entrez la note d' histoire-Geo :") 
hg = Console . ReadLine 

moyenne = ((mat + phy) * 5 + fra * 4 + (ang + hg) * 2) / IB 
Console .WriteLine ("La moyenne est : " & moyenne) 
Console . ReadLine () 
End Sub 
End Module 




1. 
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Module Module 1 

Dim m, n As Integer 
Sub Main () 

Console .Write ( "Entrez la valeur de m :") 
m = Console . ReadLine 

Console .Write ( "Entrez la valeur de n :") 
n = Console . ReadLine 
If m * n > 0 Then 

Console .Write ( "Leur produit est positif") 

Else 

Console .Write ("Leur produit est negatif") 
End If 

Console . ReadLine () 
End Sub 
End Module 



2. 

Module Module 1 

Dim a, b, c As String 
Sub Main () 

Console .Write ( "Entrez le premier nom :") 
a = Console . ReadLine 

Console .Write ( "Entrez le deuxieme nom :") 
b = Console . ReadLine 

Console .Write ( "Entrez le troisieme nom :") 
c = Console . ReadLine 
If a < b And b < c Then 

Console .Write ( "Ces noms sont classes alphabet iquement") 

Else 

Console .Write ( "Ces noms ne sont pas classes") 
End If 

Console . ReadLine () 
End Sub 
End Module 



Module Module 1 

Dim n As Integer 
Sub Main () 

Console . Write ( "Entrez 
n = Console . ReadLine 
If n < 0 Then 

Console . Write ( "Ce 
El self n = 0 Then 

Console . Write ( "Ce 

Else 

Console . Write ( "Ce 
End If 

Console . ReadLine () 
End Sub 
End Module 



un nombre : ") 

nombre est negatif") 
nombre est nuls") 
nombre est positif") 



4. 

Module Module 1 
Dim m, n As 
Sub Main () 
Console 



Integer 



Write ( "Entrezla valeur de 
m = Console . ReadLine 
Console .Write ( "Entrezla valeur de 



m 



") 
") 
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n = Console . ReadLine 
If m = 0 Or n = 0 Then 

Console .Write ( "Le produit est nul") 
Elself (m < 0 And n < 0) Or (m > 0 And n > 0) Then 

Console .Write ( "Le produit est positif") 

Else 

Console .Write ( "Le produit est negatif") 
End If 

Console . ReadLine () 
End Sub 
End Module 

5. 

Module Module 1 

Dim Age As Integer 
Sub Main () 

Console. Write ("Entrez 1' age de 1' enfant : ") 
Age = Console . ReadLine 
If Age >= 12 Then 

Console . Write ( "Categorie Cadet ") 
Elself Age >= 10 Then 

Console . Write ( "Categorie Minime ") 
Elself Age >= 8 Then 

Console . Write ( "Categorie Pupille ") 
Elself Age >= 6 Then 

Console . Write ( "Categorie Poussin ") 
End If 

Console . ReadLine () 
End Sub 
End Module 

6. 

Module Module 1 

Dim montant r taux, remise As Double 
Sub Main () 

Console .Write ( "Entrez le montant : ") 
montant = Console . ReadLine 
If montant < 2000 Then 
taux = 0 

Else 

If montant <= 5000 Then 
taux = 1 

Else 

taux = 2 
End If 
End If 

montant = montant * (1 - taux / 100) 
Console .Write ( "Le montant net est : " & montant) 
Console . ReadLine () 
End Sub 
End Module 



7. 

Module Module 1 

Dim S, D, M, SO, Res, a, b As Double 
Dim choix As Integer 
Sub Main () 

Console . WriteLine ( "1 : 

") 



-Somme- 
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Console . WriteLine ( "2 : Difference 

Console . WriteLine ( "3 : Produit 

Console . WriteLine ("4 : Division 

Console . WriteLine ( "5 : Quitter 

Console .Write ( " Taper votre choix? 

choix = Console . ReadLine 
If choix = 5 Then 

End 
End If 

Console .Write ( "Entrez la valeur de a : ") 
a = Console . ReadLine 

Console .Write ( "Entrez la valeur de b : ") 
b = Console . ReadLine 
Select Case choix 
Case 1 

Res = a + b 

Console .Write ( "La Somme est : " & Res) 
Case 2 

Res = a - b 

Console .Write ("La Difference est : " & Res) 
Case 3 

Res = a * b 

Console .Write ("Le Produit est : " & Res) 
Case 4 

If b = 0 Then 

Console . Write ( "a/0 est Impossible ") 

Else 

Res = a / b 

Console .Write ( "La Division est : " & Res) 
End If 
Case Else 

Console . WriteLine ( "Erreur de choix! ! ") 
End Select 
Console . ReadLine () 
End Sub 
End Module 

8. 

Module Module 1 

Dim a, b, x As Double 
Sub Main () 

Console .Write ( "Entrez la valeur de a : ") 
a = Console . ReadLine 

Console .Write ( "Entrez la valeur de b : ") 
b = Console . ReadLine 
If a = 0 Then 

If b = 0 Then 

Console .WriteLine ("La solution est R") 

Else 

Console . WriteLine ( "Pas de solution ") 
End If 

Else 

x = -b / a 

Console .Write ("La solution est : " & x) 
End If 

Console . ReadLine () 
End Sub 
End Module 



9. 
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Module Module 1 

Dim a, b, c As Integer 

Dim xl, x2, Delta As Double 

Sub Main () 

Console .Write ( "Entrez la valeur de a : ") 
a = Console . ReadLine 

Console .Write ( "Entrez la valeur de b : ") 
b = Console . ReadLine 

Console .Write ( "Entrez la valeur de c : ") 
c = Console . ReadLine 
If a <> 0 Then 

Delta = (b * b) - (4 * a * c) 
Console. WriteLine ("Delta = " & delta) 
If delta = 0 Then 

xl = -b / 2 * a 
Elself Delta > 0 Then 

xl = ((-b) + (Math. Sqrt (Delta) ) ) / (2 * a) 
x2 = ((-b) - (Math . Sqrt (Delta) ) ) / (2 * a) 
Console. WriteLine ("xl = " & xl) 
Console. WriteLine ("x2 = " & x2) 
End If 

Else 

If b = 0 Then 

If c <> 0 Then 

Console . WriteLine ( "Pas de solution ") 

Else 

Console .WriteLine ( "La solution est R") 
End If 

Else 

xl = -c / b 

Console. WriteLine ("xl = " & xl) 
End If 
End If 

Console . ReadLine () 
End Sub 
End Module 



10. 

Module Module 1 

Dim a, s As Intege 
Sub Main () 

Console . Write ( "Entrez 
s = Console . ReadLine 
If s >= 200 Then 
a = s \ 200 
s = s Mod 200 
Console . Write (a & 
End If 

If s >= 100 Then 
a = s \ 100 
s = s Mod 100 
Console . Write (a & 

End If 

If s >= 50 Then 
a = s \ 50 
s = s Mod 50 
Console . Write (a & 

End If 

If s >= 20 Then 
a = s \ 20 



la somme d' argent 



") 



Billet de 200 DH. ") 



Billet de 100 DH. ") 



Billet de 50 DH. ") 
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s = s Mod 20 

Console. Write (a & " Billet de 20 DR. ") 
End If 

If s >= 10 Then 
a = s \ 10 
s = s Mod 10 

Console. Write (a & " Piece de 10 DR. ") 
End If 

If s >= 5 Then 
a = s \ 5 
s = s Mod 5 

Console. Write (a & " Piece de 5 DR. ") 
End If 

If s >= 2 Then 
a = s \ 2 
s = s Mod 2 

Console. Write (a & " Piece de 2 DR. ") 
End If 

If s >= 1 Then 
a = s \ 1 
s = s Mod 1 

Console. Write (a & " Piece de 1 DR. ") 
End If 

Console . ReadLine () 
End Sub 
End Module 




1. 

Module Module 1 

Dim i, n As Integer 
Sub Main () 

Console .Write ( "Entre la valeur de n : ") 
n = Console . ReadLine 
For i = 1 To 10 

Console. WriteLine (n & "x" & i & "=" & n * i) 

Next 

Console . ReadLine () 
End Sub 
End Module 



2. 

Module Module 1 

Dim i, n, Somme As Integer 
Sub Main () 

Console .Write ( "Entre la valeur de n : ") 
n = Console . ReadLine 
Somme = 0 
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For i = 1 To n 

Somme = Sozrune + i 

Next 

Console .Write ( "La somme est : " & Somme) 
Console . ReadLine () 
End Sub 
End Module 



3. 

Module Module 1 

Dim i, n, factor lei As Integer 
Sub Main () 

Console .Write ( "Entre la valeur de n : ") 
n = Console . ReadLine 
f actor iel = 1 
For i = 1 To n 

factor iel = factor iel * i 

Next 

Console. Write ("Le factoriel de " & n & " est : " & factoriel) 
Console . ReadLine () 
End Sub 
End Module 



4. 

Module Module 1 

Dim i, n, max r Pmax As Integer 
Sub Main () 

Console .Write ( "Entrez le nombre numero 1 : ") 

n = Console . ReadLine 

max = n 

Pmax = 1 

For i = 2 To 20 

Console .Write ( "Entrez le nombre numero " & i & " : ") 

n = Console . ReadLine 

If n > max Then 
max = n 
Pmax = i 

End If 

Next 

Console .WriteLine ("Le plus grand nombre est : " & max) 
Console .WriteLine ( "Sa position est : " & Pmax) 
Console . ReadLine () 
End Sub 
End Module 



5. 

Module Module 1 

Dim i, a, b, Cpt As Integer 
Sub Main () 

Console .Write ( "Entrez un chiffre : ") 
a = Console . ReadLine 
Cpt = 0 

For i = 1 To 20 

Console .Write ( "Entrez un chiffre : ") 
b = Console . ReadLine 
If a = b Then 

Cpt = Cpt + 1 
End If 

Next 
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Console .WriteLine ( "Le nombre de fois de salsie de " & a & " est 

" & Cpt) 

Console . ReadLine () 
End Sub 
End Module 



6. 

Module Module 1 

Dim i, N As Integer 
Dim Y As Double 
Sub Main () 

Console .Write ("Entrez la valeur de N : ") 
N = Console . ReadLine 
If N >= 20 Then 

Y = (N A 10) 

Else 

Y = 1 

For i = 1 To N 
Y = Y * i 

Next 
End If 

Console. WriteLine ("La valeur de Y est : " & Y) 
Console . ReadLine () 
End Sub 
End Module 



7. 

Module Module 1 

Dim i, N, S As Integer 
Sub Main () 

Console .Write ( "Entrez un nombre : ") 
N = Console . ReadLine 
For i = 1 To N - 1 

If N Mod i = 0 Then 

S = S + i 
End If 

Next 

If N = S Then 

Console. WriteLine (N & " est par fait") 

Else 

Console .WriteLine (N & " N'est pas parfait ") 
End If 

Console . ReadLine () 
End Sub 
End Module 



8. 

Module Module 1 

Dim r,n, i As Integer 
Dim test As Boolean = True 
Sub Main () 

Console .Write ( "Entrez un nombre : ") 
n = Console .ReadLine 
If n = 0 Then 

Console . WriteLine ( " Pas premie ") 
Elself n = 1 Or n = 2 Then 

Console . WriteLine ( " Premie ") 
End If 

If n >= 3 Then 

For i = 2 To n - 1 
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r = n Mod i 
If r = 0 Then 

test = False 
End If 

Next 

If test = False Then 

Console .WriteLine ( "Le nombre " & n & " N'est pas Premie") 

Else 

Console .WriteLine ("Le nombre " & n & " Est Premie") 
End If 



Console .Write ("Entrez un nombre compris entre 1 et 3 : ") 
a = Console . ReadLine 
While a < 1 Or a > 3 

Console .Write ("SVP , Saisir une valeur comprise entre 1 et 3 : 



a = Console . ReadLine 
End While 
Console . ReadLine () 
End Sub 
End Module 

2. 

Module Module 1 

Dim a As Integer 
Sub Main () 



Console .Write ( "Entrez un nombre compris entre 10 et 20 : ") 
a = Console . ReadLine 
While a < 10 Or a > 20 
If a < 10 Then 

Console .WriteLine ("Plus grand ! ") 

Else 

Console. WriteLine ("Plus petit ! ") 
End If 

Console .Write ( "SVP, Saisir une valeur comprise entre 10 et 



20: ") 

a = Console . ReadLine 
End While 
Console . ReadLine () 
End Sub 
End Module 



End If 

Console . ReadLine () 



End Sub 
End Module 




1. 

Module Module 1 

Dim a As Integer 
Sub Main () 



3. 
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Module Module 1 

Dim a, i As Integer 
Sub Main () 

Console .Write ( "Entrez un nombre : ") 

a = Console . ReadLine 

i = a + 1 

While i <= a + 10 

Console . WriteLine (i) 
i = i + 1 
End While 
Console . ReadLine () 
End Sub 
End Module 

4. 

Module Module 1 

Dim i, n, max, Pmax As Integer 
Sub Main () 

Console .Write ( "Entrez le nombre numero 1 : ") 
n = Console . ReadLine 
max = n 
Pmax = 1 
i = 1 

While n <> 0 
i = i + 1 

Console .Write ( "Entrez le nombre numero " & i & " : ") 
n = Console . ReadLine 
If n > max Then 

max = n 

Pmax = i 
End If 
End While 

Console .WriteLine ( "Le plus grand nombre est : " & max) 
Console .WriteLine ("Sa position est : " & Pmax) 
Console . ReadLine () 
End Sub 
End Module 

5. 

Module Module 1 

Dim prixlu r Somme r mpaye, reste As Integer 
Sub Main () 

Console .Write ( "Entrez le prix : ") 
prixlu = Console . ReadLine 
Somme = Somme + prixlu 
While prixlu <> 0 

Console .Write ("Entrez le prix : ") 
prixlu = Console .ReadLine 
Somme = Somme + prixlu 
End While 

Console .Write ("Entrez le prix paye : ") 
mpaye = Console . ReadLine 
reste = mpaye - Somme 

Console .WriteLine ("Le reste est : " & reste) 
Console . ReadLine () 
End Sub 
End Module 
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i. 

Module Module 1 

Dim a, Compteur As Integer 
Dim Reponse As String 
Sub Main () 

Compteur = 0 
Do 

Console .Write ( "Entrez un nombre : ") 
a = Console . ReadLine 
Compteur = Compteur + 1 

Console .Write ( "Voulez-vous continuez O/N ? : 
Reponse = Console . ReadLine 
Loop Until (Reponse = "n" Or Reponse = "N") 
Console .Write ( "Le nombre de valeurs saisies est 
Console . ReadLine () 
End Sub 
End Module 



") 



& Compteur) 



2. 

Module Module 1 

Dim a, Somme r Moyenne r Compteur As Integer 
Sub Main () 

Compteur = 0 
Somme = 0 
Do 

Console .Write ( "Entrez un nombre : ") 

a = Console . ReadLine 

Compteur = Compteur + 1 

Somme — Somme + a 
Loop Until (a = 0) 
Moyenne = Somme / (Compteur - 1) 

Console .Write ( " La moyenne de valeurs saisies est : " & Moyenne) 
Console . ReadLine () 
End Sub 
End Module 

3. 

Module Module 1 

Dim a, Npos / Nneg As Integer 
Dim Reponse As String 
Sub Main () 

Npos = 0 

Nneg = 0 

Do 

Console .Write ("Entrez un nombre : ") 
a = Console . ReadLine 
If a > 0 Then 

Npos = Npos + 1 
El self a < 0 Then 

Nneg = Nneg + 1 
End If 

Console .Write ( "Voulez-vous continuez 0/N ? : ") 
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Reponse = Console . ReadLine 
Loop Until (Reponse = "n" Or Reponse = "N") 

Console .WriteLine ( "Le nombre de valeurs positives saisies est : " 

& Npos) 

Console .WriteLine ( "Le nombre de valeurs positives saisies est : " 

& Nneg) 

Console . ReadLine () 
End Sub 
End Module 

4. 

Module Module 1 

Dim Caractere , Phrase As String 
Sub Main () 

Phrase = "" 
Do 

Console .Write ( "Entrez une caractere : ") 
Caractere = Console . ReadLine 
If Caractere = "0" Then 

Caractere = " " 
End If 

Phrase = Phrase + Caractere 
Loop Until (Caractere = " . ") 

Console .WriteLine ( "La phrase resultante est : " & Phrase) 
Console . ReadLine () 
End Sub 
End Module 

1. 

Module Module 1 

Dim i As Integer 
Dim X(4) As Integer 
Sub Main () 

X(l) = 12 

X(2) = 5 

X(3) = 8 

X(4) = 20 

For i = 1 To 4 

Console. Write (X(i) & " ") 

Next 

Console . ReadLine () 
End Sub 
End Module 

Module Module 1 

Dim i As Integer 

Dim Voyelle ( 6) As String 

Sub Main () 

Voyelle (1) = " a " 

Voyelle (2) = " e " 
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Voyelle(3) = " 1 " 
Voyelle(4) = " o " 
Voyelle(5) = " u " 
Voyelle(6) = " y " 
For i = 1 To 6 

Console. Write (Voyelle (1) & " ") 

Next 

Console . ReadLine () 
End Sub 
End Module 

2. 

Module Module 1 

Dim i As Integer 
Dim C(6) As Integer 
Sub Main () 

Console .WriteLine ( "saisit successivement les valeurs : 2 , 5 , 3 
, 10 , 4 , 2. : ") 

For i = 1 To 6 

Console. Write ("Entrez le nombre n° " & i & " : ") 
C(i) = Console . ReadLine 

Next 

For i = 1 To 6 

C(i) = C(i) * C(i) 

Next 

For i = 1 To 6 

Console.Write(C(i) & " ") 

Next 

Console . ReadLine () 
End Sub 
End Module 



Module Module 1 

Dim i As Integer 

Dim Suite (8) As Integer 

Sub Main () 

Suite (1) = 1 
Suite (2) = 1 
For i = 3 To 8 

Suite (i) = Suite (i - 1) + Suite (i - 2) 

Next 

For i = 1 To 8 

Console. Write (Suite (i) & " ") 

Next 

Console . ReadLine () 
End Sub 
End Module 

4. 

Module Module 1 

Dim i, Somme As Integer 
Dim T(19) As Integer 
Sub Main () 

Somme = 0 

For i = 0 To 19 

Console. Write ("Entrez 1' element n° " & i + 1 & " : ") 
T(i) = Console . ReadLine 
Somme = Somme + T(i) 
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Next 

Console .Write ( "La somme des elements de ce tableau est : " & 

Somme) 

Console . ReadLine () 
End Sub 
End Module 

5. 

Module Module 1 

Dim i, Max, n As Integer 
Sub Main () 

Console .Write ( "Entrez la taille du tableau : ") 
n = Console . ReadLine 
Dim T (n) As Integer 
For i = 0 To n - 1 

Console. Write ("Entrez 1' element n° " & i + 1 & " : ") 

T(i) = Console . ReadLine 

Next 

Max = T(0) 

For i = 1 To n - 1 

If T(i) > Max Then 
Max = T(i) 

End If 

Next 

Console .Write ( "Le plus grand element de ce tableau est : " & 

Max) 

Console . ReadLine () 
End Sub 
End Module 

6. 

Module Module 1 

Dim i, Moyenne, Somme, NoteSup As Double 
Dim Note (99) As Integer 
Sub Main () 

Somme = 0 
NoteSup = 0 
For i = 0 To 99 

Console. Write ("Entrez la note n° " & i + 1 & " : ") 
Note(i) = Console . ReadLine 
Somme = Somme + Note(i) 

Next 

Moyenne = Somme / 100 
For i = 0 To 99 

If Note(i) > Moyenne Then 
NoteSup = NoteSup + 1 

End If 

Next 

Console .Write ( "Le nombre de notes superieures a la moyenne est : 
" & NoteSup) 

Console . ReadLine () 
End Sub 
End Module 



7. 

Module Module 1 

Dim i r Max, Min, Pmax, Pmin, n As Integer 
Sub Main () 

Console .Write ( "Entrez la taille du tableau : ") 
n = Console . ReadLine 
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Dim T(n) As Integer 
For 1=1 To n 

Console. Write ("Entrez 1' element n° " & i & " : ") 

T(i) = Console . ReadLine 

Next 

Max = T(l) 
Min = T(l) 
Pmax = 1 
Pmin = 1 

For i = 2 To n - 1 

If T(i) > Max Then 

Pmax = i 
Elself T(i) < Min Then 

Pmin = i 
End If 

Next 

Console .WriteLine ( "La position du plus grand element : " & Pmax) 
Console .WriteLine ( " La position du plus petit element : " & Pmin) 
Console . ReadLine () 
End Sub 
End Module 



8. 

Module Module 1 

Dim i, Cpt r n As Integer 
Dim X As Integer 
Sub Main () 
Cpt = 0 

Console .Write ("Entrez le nombre X : ") 
X = Console . ReadLine 

Console .Write ( "Entrez la taille du tableau : ") 
n = Console . ReadLine 
Dim T(n) As Double 
For i = 1 To n 

Console. Write ("Entrez 1' element n° " & i & " : ") 

T(i) = Console . ReadLine 

If T(i) = X Then 
Cpt += 1 

End If 

Next 

Console .WriteLine ( "Le nombre d' occurrences de X est : " & Cpt) 
Console . ReadLine () 
End Sub 
End Module 



9. 

Module Module 1 

Dim n, i, nbP r nblmp As Integer 
Sub Main () 

nblmp = 0 
nbP = 0 

Console .Write ( "Entrez la taille du tableau : ") 
n = Console .ReadLine 
Dim T (n) As Integer 
For i = 0 To n - 1 

Console.Write("t(" & i + 1 & ") = ") 

t (i) = Console . ReadLine 

Next 

For i = 0 To n - 1 

If T(i) Mod 2 = 0 Then 
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nbP += 1 

Else 

nblmp += 1 
End If 

Next 

Console .WriteLine ( "Le nombre d f entiers impairs est: " & nblmp) 
Console .WriteLine ("Le nombre d' entiers pairs est: " & nbP) 
Console . ReadLine () 
End Sub 
End Module 

10. 

Module Module 1 

Dim n, i, nbPos, nbNeg r Vmoy_Pos r Vmoy_Neg, nbNull, Som_Pos r Som_Neg 
As Double 

Sub Main () 

nbPos = 0 
nbNeg = 0 
nbNull = 0 
Som_Pos = 0 
Som_Neg = 0 

Console .Write ( "Entrez la taille du tableau : ") 
n = Console . ReadLine 
Dim T(n) As Double 
For i = 0 To n - 1 

Console. Write ("t (" & i + 1 & ") = ") 

t (i) = Console . ReadLine 

Next 

For i = 0 To n - 1 

If T(i) = 0 Then 

nbNull += 1 
Elself T(i) > 0 Then 

nbPos += 1 

Som_Pos += T(i) 

Else 

nbNeg += 1 
Som_Neg += T(i) 
End If 

Next 

Vmoy_Pos = Som_Pos / nbPos 
Vmoy_Neg = Som_Neg / nbNeg 

Console .WriteLine ("Le nombre d' elements nuls est : " & nbNull) 
Console .WriteLine ( "La valeur moyenne des elements positifs est: " 
& Vmoy_Pos) 

Console .WriteLine ( "La valeur moyenne des elements negatifs est: " 
& Vmoy_Neg) 

Console . ReadLine () 
End Sub 
End Module 

11. 

Module Module 1 

Dim i, note f nnote f snote f smoyenne f cmoyenne As Double 
Dim Moy(24) As Double 
Sub Main () 

For i = 0 To 24 
snote = 0 
nnote = 0 
Do 
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Console .Write ( "Entrez la note d'eleve numero " & i + 1 & 

rt . rt j 

note = Console . ReadLine 
If note <> -1 Then 
snote += note 
nnote += 1 
End If 
Loop Until (note = -1) 
Moy(i) = snote / nnote 
smoyenne = smoyenne + Moy(i) 

Next 

For 1 = 0 To 24 

Console .WriteLine ( "La moyenne d'eleve numero " & i + 1 & " 
est : " & Moy(i)) 
Next 

cmoyenne = smoyenne / 25 

Console .WriteLine ( "La moyenne de la classe est : " & cmoyenne) 
Console . ReadLine () 
End Sub 
End Module 




1. 

Module Module 1 

Dim i, n As Integer 
Sub main ( ) 

Console. Write ("Entrez la taille du Tableau : ") 

n = Console . ReadLine 

Dim t(n), tcopy(n) As Integer 

For i = 0 To n - 1 

Console. Write ("t (" & i + 1 & ") = ") 

t (i) = Console . ReadLine 

Next 

For i = 0 To n - 1 

tcopy(i) = t (n - 1 - i) 
Console .Write (tcopy (i) & " ") 

Next 

Console . ReadLine () 
End Sub 
End Module 



2. 

Module Module 1 

Dim n, i, x, pos r temp As Integer 
Sub Main () 

Console. Write ("Entrez la taille du Tableau : ") 
n = Console . ReadLine 
Dim t (n) As Integer 
For i = 0 To n - 1 

Console.Write("t(" & i + 1 & ") = ") 

t (i) = Console . ReadLine 

Next 

n = n + 1 

Console .Write ( "Entre 1' element a ajouter : ") 
x = Console . ReadLine 
Console . WriteLine ( " ") 
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Console .Write ("Entre sa position : ") 
pos = Console . ReadLine 
For i = pos To n - 1 

temp = t (i) 

t(i) = x 

x = temp 

Next 

For i = 0 To n - 1 

Console. Write (t (i) & " ") 

Next 

Console . ReadLine () 
End Sub 
End Module 

3. 

Module Module 1 
Sub Main () 

Dim i, n, x, j, temp As Integer 

Console. Write ("Entrez la taille du Tableau : ") 
n = Console . ReadLine 
Dim t (n) As Integer 
For i = 0 To n - 1 

Console. Write ("t (" & i + 1 & ") = ") 

t (i) = Console . ReadLine 

Next 
n += 1 

Console .Write ( "Entrez le numero a ajouter : ") 
x = Console . ReadLine 
t(i) = x 

For i = n - 1 To 1 Step -1 
For j = 1 To i 

If t(j - 1) > t(j) Then 
temp = t (j) 
t(j) = t(j - 1) 
t (j - 1) = temp 
End If 

Next 

Next 

For i = 0 To n - 1 

Console. Write (t (i) & " ") 

Next 

Console . ReadLine () 
End Sub 
End Module 

4. 

Module Module 1 

Sub Main () 

Dim i, pos r n, x As Integer 

Console. Write ("Entrez la taille du Tableau : ") 
n = Console . ReadLine 
Dim t (n) As Integer 
For i = 0 To n - 1 

Console.Write("t(" & i + 1 & ")=") 

t (i) = Console . ReadLine 

Next 

Console .Write ( "Entrez l f element a supprime : ") 
x = Console . ReadLine 
For i = 0 To n - 1 
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If x = t (i) Then 

pos = i 
End If 

Next 

For i = pos To n - 1 
t(±) = t(± + 1) 

Next 

For 1 = 0 To n - 2 

Console. Write (t (i) & " ") 

Next 

Console . ReadLine () 
End Sub 

End Module 

5. 

Module Module 1 

Dim i, j, n As Integer 
Sub Main () 

Console. Write ("n : ") 
n = Console . ReadLine 

Dim teal (n + 1) , taff(n -hi) As Integer 
i = 1 

tcal(0) = 1 
tcal(l) = 1 

Console. WriteLine (teal (0) & " " & teal (1) ) 
i = i + 1 
While (i <= n) 

taff(0) = 1 

For j=l To i 

taff(j) = tcal(j) + tcal(j - 1) 

Next 

For j = 0 To i 

Console. Write (taff(j) & " ") 

Next 

Console . WriteLine ( " ") 
For j = 1 To i 

tcal(j) = taff(j) 

Next 

i = i + 1 
End While 
Console . ReadLine () 
End Sub 
End Module 

6. 

Module Module 1 

Dim n, c, i As Integer 
Sub Main () 

Console. Write ("Entrez la taille du Tableau : ") 

n = Console . ReadLine 

Dim t (n) , taff (n) As Integer 

For i = 0 To n - 1 

Console. Write ("t (" & i + 1 & ") = ") 

t (i) = Console . ReadLine 

Next 
c = 0 

For i = 0 To n - 1 

If t(i) Mod 2 = 0 Then 
taff(c) = t(i) 
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c += 1 
End If 

Next 

For i = 0 To n - 1 

If t(i) Mod 2 <> 0 Then 

taff(c) = t(±) 

c += 1 
End If 

Next 

For i = 0 To n - 1 

Console.Wr±te(taff(±) & " ") 

Next 

Console . ReadLine () 
End Sub 
End Module 

7. 

Module Module 1 

Dim n, P, i As Integer 
Sub Main () 

Console. Write ("Entrez la taille du Tableau : ") 

n = Console . ReadLine 

Dim U (n) , V(n) As Integer 

For i = 0 To n - 1 

Console. Write ("U(" & i + 1 & ") = ") 

U(i) = Console . ReadLine 

Next 

For i = 0 To n - 1 

Console. Write ("V(" & i + 1 & ") = ") 
V(i) = Console . ReadLine 

Next 

For i = 0 To n - 1 
P += U(i) * V(i) 

Next 

Console .WriteLine ( "Le produit scalaire : " & P) 
Console . ReadLine () 
End Sub 
End Module 

8. 

Module Module 1 
Sub Main () 

Dim i, n, pos, max r c As Integer 

Console. Write ("Entrez la taille du Tableau : ") 

n = Console . ReadLine 

Dim t (n) As Integer 

For i = 0 To n - 1 

Console.Write("t(" & i + 1 & ") = ") 
t (i) = Console . ReadLine 

Next 
max = 0 
c = 1 

For i = 1 To n - 1 

If t(i) = t(i - 1) Then 
c = c + 1 

Else 

c = 1 
End If 

If c > max Then 
max = c 
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pos = i - c + 2 
End If 

Next 

Console .WriteLine ( "Le plus long plateau commence a 1 ' indice : " & 

pos) 

Console .Write ( " II est de longueur : " & max) 
Console . ReadLine () 
End Sub 
End Module 



9. 
a. 

Module Module 1 
Sub Main () 

Dim i, n, j, temp As Integer 

Console. Write ("Entrez la taille du Tableau : ") 
n = Console . ReadLine 
Dim t (n) As Integer 
For i = 0 To n - 1 

Console.Write("t(" & i + 1 & ")=") 

t (i) = Console . ReadLine 

Next 

For i = n - 1 To 1 Step -1 
For j = 1 To i 

If t(j - 1) > t(j) Then 
temp = t (j) 
t(j) = t(j - 1) 
t (j - 1) = temp 
End If 

Next 

Next 

For i = 0 To n - 1 

Console. Write (t (i) & " ") 

Next 

Console . WriteLine ( " ") 
Console . ReadLine () 
End Sub 
End Module 



b. 

Module module 1 
Sub main ( ) 

Dim i, j, n, m, temp As Integer 

Console. Write ("Entrez la taille du Tableau : ") 
n = Console . ReadLine 
Dim t (n) As Integer 
For i = 0 To n - 1 

Console.Write("t(" & i + 1 & ")=") 

t (i) = Console . ReadLine 

Next 

For i = 0 To n - 2 
m = i 

For j=i+lTon-l 
If t(j) < t(m) Then 
temp = t (m) 
t(m) = t(j) 
t (j) = temp 
m = i 
End If 

Next 
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Next 

For i = 0 To n - 1 

Console. Write (t (i) & " ") 

Next 

Console . ReadLine () 
End Sub 
End Module 



c. 

Module Module 1 

Dim i, j, n, elt As Integer 
Sub Main () 

Console. Write ("Entrez la taille du Tableau : ") 
n = Console . ReadLine 
Dim t (n) As Integer 
For i = 0 To n - 1 

Console. Write ("t (" & i + 1 & ")=") 

t (i) = Console . ReadLine 

Next 

For i = 1 To n - 1 
elt = t(i) 
D = i 

While t(j - 1) > elt And j > 0 
t(j) = t(j - 1) 

j = j ' 1 

If j = 0 Then 
Exit While 

End If 
End While 
t (j) = elt 

Next 

For i = 0 To n - 1 

Console. Write (t (i) & " ") 

Next 

Console . ReadLine () 
End Sub 
End Module 



10. 

Module Module 1 

Dim i, V, n As Integer 
Sub Main () 

Console. Write ("Entrez la taille du Tableau : ") 
n = Console . ReadLine 
Dim t (n) As Integer 
For i = 0 To n - 1 

Console. Write ("t (" & i + 1 & ")=") 

t (i) = Console . ReadLine 

Next 

V = t(n - 1) 

Console .Write ( "La valeur du dernier entier de la sequence est : " 

& V) 

Console . ReadLine () 
End Sub 
End Module 



11. 

Module Module 1 
Sub Main () 

Dim i, n, x, d, min As Integer 



Page 89 marouan.ts@gmail.fr 



ALGORITHM IQUE 



2009 



Console. Write ("Entrez la taille du Tableau : ") 

n = Console . ReadLine 

Dim t (n) , td (x) As Integer 

For i = 0 To n - 1 

Console. Write ("t (" & i + 1 & ")=") 

t (i) = Console . ReadLine 

Next 
x = -1 

Console. Write ("D = ") 
d = Console . ReadLine 
For i = 0 To n - 1 

If t(i) > d Then 
x = x + 1 

ReDim Preserve td(x) 
td(x) = t(i) 
End If 

Next 

min = td(0) 

For i = 0 To td. Length - 1 
If td(i) < min Then 

min = td(i) 
End If 

Next 

Console .Write ( "La petite duree superieur a D est : " & min) 
Console . ReadLine () 
End Sub 
End Module 



12. 

Module Module 1 

Dim i, n As Integer 

Dim Test As Boolean = True 

Sub Main () 

Console. Write ("Entrez la taille du Tableau : ") 
n = Console . ReadLine 
Dim t (n) As Integer 
For i = 0 To n - 1 

Console. Write ("t (" & i + 1 & ")=") 

t (i) = Console . ReadLine 

Next 

For i = 0 To n - 1 

If t(i) < 0 Then 
Test = False 
End If 

Next 

If Test = True Then 

Console .WriteLine ("La sequence comporte que des entiers 

positifs . ") 
Else 

Console .WriteLine ( "La sequence ne comporte pas que des 
entiers positifs . ") 
End If 

Console . ReadLine () 
End Sub 
End Module 



13. 

Module Module 1 

Dim i, n, m, Temp f j, c, s As Integer 
Sub Main () 
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c = 0 

Console. Write ("Entrez la taille du Tableau 1 : ") 
n = Console . ReadLine 
Dim tl (n) As Integer 
For i = 0 To n - 1 

Console. Write ("tl (" & i + 1 & ")=") 

tl (i) = Console . ReadLine 

Next 

Console. Write ("Entrez la taille du Tableau 2 : ") 
m = Console .ReadLine 
Dim t2 (n) As Integer 
For i = 0 To m - 1 

Console. Write ( "t2 (" & i + 1 & ")=") 

t2 (i) = Console . ReadLine 

Next 

s = m + n 

Dim t (s) As Integer 
For i = 0 To n - 1 
t (i) = tl (i) 

Next 

For i = n To s 
t(i) = t2(c) 
c = c + 1 

Next 

For i = s - 1 To 1 Step -1 
For j = 1 To i 

If t(j - 1) > t(j) Then 
Temp = t(j) 
t(j) = t(j - 1) 
t (j - 1) = Temp 
End If 

Next 

Next 

For i = 0 To s - 1 

Console. Write (t (i) & " ") 

Next 

Console . ReadLine () 
End Sub 
End Module 

14. 

Module Module 1 

Dim i, j, c, n As Integer 
Sub Main () 

Console. Write ("Entrez la taille du Tableau : ") 
n = Console . ReadLine 
Dim t (n) As String 
For i = 0 To n - 1 

Console. Write ("t (" & i + 1 & ") = ") 

t (i) = Console . ReadLine 

Next 

Dim ch As String 
For i = 0 To n - 1 

ch = t(i) 

c = 0 

For j = 0 To ch. Length - 1 

If ch(j) = "a" Or ch(j) = "A" Then 

c += 1 
End If 

Next 
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If c >= 3 Then 

Console. WriteLine(t (i) & " ") 
End If 

Next 

Console . ReadLine () 
End Sub 
End Module 



15. 

Module Module 1 

Dim i, c As Integer 
Dim ch, s As String 
Sub Main () 

Console .Write ( "Entrez la chaine : ") 

ch = Console . ReadLine 

c = 0 

s = ch(0) 

For i = 1 To ch. Length - 1 
If ch(i) = " " Then 

If ch(i + 1) <>s Then 

c += 1 
End If 
End If 

Next 

If c = 0 Then 

Console .Write ( "Le texte est un tautogramme") 

Else 

Console .Write ( "Le texte n'est pas un tautogramme") 
End If 

Console . ReadLine () 
End Sub 
End Module 



16. 

Module Module 1 

Dim i, j, n, s, c, m As Integer 
Sub Main () 

Console. Write ("Entrez la taille du Tableau 1 : ") 
n = Console . ReadLine 
Dim tl (n) As Integer 
For i = 0 To n - 1 

Console. Write ("t (" & i + 1 & ")=") 

tl (i) = Console . ReadLine 

Next 

Console. Write ("Entrez la taille du Tableau 2 : ") 
m = Console . ReadLine 
Dim t2 (m) As Integer 
For i = 0 To m - 1 

Console. Write ("t (" & i + 1 & ")=") 

t2 (i) = Console . ReadLine 

Next 

Dim t (c) As Integer 
s = 0 
c = 0 

For i = 0 To n - 1 

For j = 0 To m - 1 

If tl(s) = t2(j) Then 
t (c) = tl (s) 
c = c + 1 

ReDim Preserve t (c) 
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End If 

Next 

s = s + 1 

Next 

For i = 0 To c - 1 

Console. Write (t (i) & " ") 

Next 

Console . ReadLine () 
End Sub 
End Module 

17. 

Module Module 1 

Dim a, b, i, j, x, y, z, PGDC As Integer 
Sub Main () 

Console. Write ("Entrez a : ") 
a = Console . ReadLine 
Console. Write ("Entrez b : ") 
b = Console . ReadLine 
x = 0 
y = 0 
z = 0 

Dim tl (x) As Integer 
For i = 1 To a 

If a Mod i = 0 Then 

ReDim Preserve tl (x) 
tl(x) = i 
x = x + 1 
End If 

Next 

Dim t2 (y) As Integer 
For i = 1 To b 

If b Mod i = 0 Then 

ReDim Preserve t2 (y) 
t2(y) = i 
y = y + 1 
End If 

Next 

Dim t (z) As Integer 
For i = 0 To x - 2 

For j = 0 To y - 2 

If tl(i) = t2(j) Then 
ReDim Preserve t (z) 
t (z) = tl (i) 
z = z + 1 
End If 

Next 

Next 

PGDC = t(0) 

For i = 0 To t. Length - 1 
If t(i) > PGDC Then 

PGDC = t(i) 
End If 

Next 

Console .Write ( "Le plus grand diviseur commun est :" & PGDC) 
Console . ReadLine () 
End Sub 
End Module 
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i. 

Module Module 1 

Dim i, j, n, m, S As Integer 
Sub Main () 
S = 0 

Console .Write ( "Entrez le nombre de lignes : ") 
n = Console . ReadLine 

Console .Write ( "Entrez le nombre de colonnes : ") 
m = Console . ReadLine 
Dim T(n, m) As Integer 
For i = 0 To n - 1 

For j = 0 To m - 1 

Console. Write ("Entrez 1' element T ( " & i + 1 & " ; " & j + 1 

& ") " & " : ") 

T(i, j) = Console .ReadLine () 

Next 

Next 

For i = 0 To n - 1 

For j = 0 To m - 1 
S = S + T(i, j) 

Next 

Next 

Console .Write ( "La somme est : " & S) 
Console . ReadLine () 
End Sub 
End Module 



2. 

Module Module 1 

Dim i, j, n, m, S As Integer 
Sub Main () 

Console .Write ( "Entrez le nombre de lignes : ") 
n = Console . ReadLine 

Console .Write ( "Entrez le nombre de colonnes : ") 
m = Console . ReadLine 
Dim T(n, m) As Integer 
For i = 0 To n - 1 

For j = 0 To m - 1 

Console. Write ("Entrez 1' element T ( " & i + 1 & " ; " & j + 1 

& ") " & " : ") 

T(i, j) = Console .ReadLine () 

Next 

Next 

For i = 0 To n - 1 
S = 0 

For j = 0 To m - 1 
S = S + T(i, j) 

Next 

Console .WriteLine ("La somme de linge " & i + 1 & " est : " & 

S) 

Next 

Console . ReadLine () 
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End Sub 
End Module 



3. 

Module Module 1 

Dim i, S, n, m, j As Integer 
Sub Main () 

Console .Write ( "Entrez le nombre de lignes : ") 
n = Console . ReadLine 

Console .Write ( "Entrez le nombre de colonnes : ") 

m = Console . ReadLine 

While (n <> m) 

Console . WriteLine ( "Impossible ") 

Console .Write ( "Entrez le nombre de lignes : ") 

n = Console . ReadLine 

Console .Write ( "Entrez le nombre de colonnes: ") 
m = Console . ReadLine 
End While 

Dim T(n, m) As Integer 
For i = 0 To n - 1 

For j = 0 To m - 1 

Console . Write ( "T ( " & i + 1 & ";" & j + 1 & ") = ") 

T(i, j) = Console . ReadLine 

Next 

Next 
S = 0 

For i = 0 To n - 1 
S = S + T(i, i) 

Next 

Console .Write ( "La somme des elements de la diagonale est : " & S) 
Console . ReadLine () 
End Sub 
End Module 



4. 

Module Module 1 

Dim i, j, n, m, P As Integer 
Sub Main () 
P = 1 

Console .Write ( "Entrez le nombre de lignes : ") 
n = Console . ReadLine 

Console .Write ( "Entrez le nombre de colonnes : ") 
m = Console . ReadLine 
Dim T(n, m) As Integer 
For i = 0 To n - 1 

For j = 0 To m - 1 

Console. Write ("Entrez 1' element T (" & i + 1 & " ; " & j + 1 

& " ) " & " : " ) 

T(i, j) = Console .ReadLine () 

Next 

Next 

For i = 0 To n - 1 

For j = 0 To m - 1 
P = P * T(i, j) 

Next 

Next 

Console. Write ("Le produit est : " & P) 
Console . ReadLine () 
End Sub 
End Module 
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5 

Module Module 1 

Dim i, S, n, m, j As Integer 
Sub Main () 

Console .Write ( "Entrez le nombre de lignes : ") 
n = Console . ReadLine 

Console .Write ( "Entrez le nombre de colonnes : ") 
m = Console . ReadLine 

Dim T(n, m) , V(m, 1) , R(m, 1) As Integer 
For i = 0 To n - 1 

For j = 0 To m - 1 

Console.Write("T(" & i + 1 & " , " & j + 1 & ") = ") 

T(i, j) = Console . ReadLine 

Next 

Next 

Console . WriteLine ( " ") 
For i = 0 To m - 1 

Console. Write ("V(" & i + 1 & " , " & 1 & ") = ") 

V(i, 0) = Console . ReadLine 

Next 

For i = 0 To n - 1 
S = 0 

For j = 0 To m - 1 

S = S + (T(i, j) * V(j, 0)) 

Next 

R(i, 0) = S 

Next 

For i = 0 To n - 1 

Console. Write (R(i, 0) & " ") 

Next 

Console . ReadLine () 
End Sub 
End Module 

6. 

Module Module 1 

Dim i, S, n, m, j As Integer 
Sub Main () 

Console .Write ( "Entrez le nombre de lignes : ") 
n = Console . ReadLine 

Console .Write ( "Entrez le nombre de colonnes : ") 
m = Console . ReadLine 

Dim T(n, m) , V(n, m) , P (n, m) As Integer 
For i = 0 To n - 1 

For j = 0 To m - 1 

Console.Write("T(" & i + 1 & " , " & j + 1 & ") = ") 

T(i, j) = Console . ReadLine 

Next 

Next 

Console . WriteLine ( " ") 
For i = 0 To n - 1 

For j = 0 To m - 1 

Console . Write ( "V(" & i + 1 & " , " & j + 1 & ") = ") 

V(i, j) = Console . ReadLine 

Next 

Next 

For i = 0 To n - 1 

For j = 0 To m - 1 

P(i, j) = (T(i, j) * V(i, j)) 
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Next 

Next 

For 1 = 0 To n - 1 

For j = 0 To m - 1 

Console.Write(P(i, j) & " ") 

Next 

Console . WrlteLlne ( " ") 

Next 

Console . ReadLine () 
End Sub 
End Module 

7. 

Module Module 1 

Dim 1, j, n, m, Cpt As Integer 
Sub Main () 

Console .Write ( "Entrez le nombre de lignes : ") 
n = Console . ReadLine 

Console .Write ( "Entrez le nombre de colonnes : ") 
m = Console . ReadLine 
While (n <> m) 

Console . WriteLine ( "Pas caree ") 

Console .Write ( "Entrez le nombre de lignes : ") 
n = Console . ReadLine 

Console .Write ( "Entrez le nombre de colonnes: ") 
m = Console . ReadLine 
End While 

Dim T(n, m) As Integer 
For i = 0 To n - 1 

For j = 0 To m - 1 

Console. Write (" t (" & i + 1 & " , " & j + 1 & ") = ") 

T(i, j) = Console . ReadLine 

Next 

Next 
Cpt = 0 

For i = 0 To n - 1 

For j = 0 To m - 1 

If T(i, j) <> T(j, i) Then 

Cpt = Cpt + 1 
End If 

Next 

Next 

If (Cpt <> 0) Or (m <> n) Then 

Console .Write ( "Pas caree et symetrique") 

Else 

Console . Write ( "caree et symetrique ") 
End If 

Console . ReadLine () 
End Sub 
End Module 



8. 

Module Module 1 

Dim i, j As Integer 
Sub Main () 

Dim T(10, 10) As Integer 
For i = 0 To 10 

For j = 0 To 10 

t(i, j) = i * j 
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Next 

Next 

Console. WriteLine ( "X *Y0123456789 

10") 

For 1 = 0 To 10 

For j = 0 To 10 

Console.Write(T(i, j) & " ") 

Next 

Console . WriteLine ( " ") 

Next 

Console . ReadLlne () 
End Sub 
End Module 



9. 

Module Module 1 

Dim 1, j, n, m, Max, Min r Pmax_x, Pmax_y, Pmin_x, Pmin_y As Integer 
Sub Main () 

Console .Write ( "Entrez le nombre de lignes : ") 
n = Console . ReadLlne 

Console .Write ( "Entrez le nombre de colonnes : ") 
m = Console . ReadLlne 
Dim T(n, m) As Integer 
For 1 = 0 To n - 1 

For j = 0 To m - 1 

Console. Write (" t (" & i + 1 & " , " & j + 1 & ") = ") 

T(i, j) = Console . ReadLine 

Next 

Next 

Max = T(0, 0) 
Min = T(0, 0) 
Pmax_x = 1 
Pmax_y = 1 
Pmin_x = 1 
Pmin_y = 1 
For i = 0 To n - 1 

For j = 0 To m - 1 

If T(i, j) > Max Then 
Max = T(i, j) 
Pmax_x = 1+1 
Pmax_y = j + 1 
End If 

If T(i, j) < Min Then 

Min = T(i, j) 

Pmin_x = 1+1 

Pmln_y = j + 1 
End If 

Next 

Next 

Console .WriteLine ( "Le plus grand element est : " & Max) 
Console. WriteLine ("Sa postion est : " & "T(" & Pmax_x & ";" & 

Pmax_y & ") ") 

Console .WriteLine ("Le petit element est : " & Min) 

Console. WriteLine ("Sa postion est : " & "T (" & Pmin_x & ";" & 

Pmin_y & ") ") 

Console . ReadLine () 
End Sub 

End Module 



10. 
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Module Module 1 

Dim i, j, n As Integer 
Sub Main () 

Console. Write ("n = ") 
n = Console . ReadLine 
While (n <= 0) 

Console . WriteLine ( "Impossible ") 
Console. Write ("n = ") 
n = Console . ReadLine 
End While 

Dim T(n, n) As Integer 
T(0, 0) = 1 
T(l, 0) = 1 
T(l, 1) = 1 
For i = 2 To n 

For j = 0 To i 

T(i, j) = T(i - 1, j) + T(i - 1, i - j) 

Next 

Next 

For i = 0 To n 

For j = 0 To i 

Console. Write (T(i, j) & " ") 

Next 

Console . WriteLine ( " ") 

Next 

Console . ReadLine () 
End Sub 
End Module 

11. 

Module Module 1 

Dim n, i, j, s, c, cl, si, Cmpt As Integer 
Sub Main () 

Cmpt = 0 

Console .Write ( "Entrez le nombre de lignes : ") 
n = Console . ReadLine 
Dim T(n, n) As Integer 
For i = 0 To n - 1 

For j = 0 To n - 1 

Console.Write("T(" & i + 1 & " , " & j + 1 & ") = ") 

T(i, j) = Console . ReadLine 

Next 

Next 
cl = 0 
si = 0 

For j = 0 To n - 1 

si = si + T(j, j) 

cl = cl + T(j f n - 1 - j) 

Next 

If si = cl Then 

Cmpt = Cmpt + 2 
End If 

For i = 0 To n - 1 
c = 0 
s = 0 

For j = 0 To n - 1 
s = s + T(i, j) 
c = c + T(j, i) 

Next 

If (s = c) And (s = si) Then 
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Cmpt = Cmpt + 2 
End If 

Next 

If Cmpt = (2 * n) + 2 Then 

Console . WriteLine ( "car re magique ") 

Else 

Console .WriteLine ( "carre pas magique") 
End If 

Console . ReadLine () 
End Sub 
End Module 

12. 

Module Module 1 

Dim i, j, L, C, x, y As Integer 
Sub Main () 

Console. Write (" L : ") 
Ii = Console . ReadLine 
Console. Write (" C : ") 
C = Console . ReadLine 

While (L > 10 Or C > 10) Or (L < 0 Or C < 0) 

Console .WriteLine ("SVP , L et C devent etre compris entre 0 et 

10") 

Console. Write (" L : ") 
Ii = Console .ReadLine 
Console. Write (" C : ") 
C = Console . ReadLine 
End While 

Dim M(L, C) As String 

Dim V(L * C) As String 

x = 0 

y = L * C 

For i = 0 To L - 1 

For j = 0 To C - 1 

Console. Write ("M(" & i + 1 & " ; " & j + 1 & ") = ") 
M(i, j) = Console . ReadLine 

Next 

Next 

For i = 0 To L - 1 

For j = 0 To C - 1 
V(x) = M(i, j) 
x += 1 

Next 

Next 

For i = 0 To y - 1 

Console. Write (V(i) & " ") 

Next 

Console . ReadLine () 
End Sub 
End Module 



13. 

Module Module 1 

Dim i, j, N, M As Integer 
Sub Main () 

Console. Write (" N : ") 
N = Console .ReadLine 
Console. Write (" M : ") 
M = Console . ReadLine 
Dim tA (N, M) As String 
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Dim A (M, N) As String 

For i = 0 To N - 1 

For j = 0 To M - 1 

Console. Write ("tA(" & i + 1 & " ; " & j + 1 & ") = ") 
tA(i r j) = Console . ReadLine 

Next 

Next 

For i = 0 To N - 1 

For j = 0 To M - 1 

A(j, i) = tA(i, j) 

Next 

Next 

For i = 0 To M - 1 

For j = 0 To N - 1 

Console. Write (A (i, j) & " ") 

Next 

Console . WriteLine ( " ") 

Next 

Console . ReadLine () 
End Sub 
End Module 
14. 

Module Module 1 

Dim i, j, N, M As Integer 
Sub Main () 

Console. Write (" N : ") 
N = Console . ReadLine 
Console. Write (" M : ") 
M = Console . ReadLine 
Dim A (N, M) As String 
Dim B(N, M) As String 
Dim A_B (N, M) As String 
For i = 0 To N - 1 

For j = 0 To M - 1 

Console. Write ( "A (" & i + 1 & " ; " & j + 1 & ") = ") 
A(i, j) = Console . ReadLine 

Next 

Next 

Console . WriteLine ( " ") 
For i = 0 To N - 1 

For j = 0 To M - 1 

Console.Write("B(" & i + 1 & " ; " & j + 1 & ") = ") 
B(i, j) = Console . ReadLine 

Next 

Next 

For i = 0 To N - 1 

For j = 0 To M - 1 

A_B(i r j) = A(i, j) & " + " & B(i, j) 

Next 

Next 

For i = 0 To N - 1 

For j = 0 To M - 1 

Console . Write (A_B (i, j) & " ") 

Next 

Console . WriteLine ( " ") 

Next 

Console . ReadLine () 
End Sub 
End Module 
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i. 

Module Module 1 

Dim P, i, S As Integer 
Sub Main () 

Console .Write ( "Entrez la puissance : ") 
P = Console . ReadLine 
S = 0 

For i = 1 To P 

S = S + (3 A (i - 1)) 

Next 

Console. Write ("S est : " & S) 
Console . ReadLine () 
End Sub 
End Module 



2. 

Module Module 1 

Dim P , i, S, X As Integer 
Sub Main () 

Console .Write ("Entrez la Valeur de x : ") 
X = Console .ReadLine 

Console .Write ("Entrez la puissance : ") 
P = Console . ReadLine 
S = 0 

For i = 0 To P 

S = S + (X A (i * 2)) 

Next 

Console. Write ("S est : " & S) 
Console . ReadLine () 
End Sub 
End Module 



3. 

Module Module 1 

Dim N, i, S As Double 
Sub Main () 

Console .Write ("Entrez la valeur de N : ") 
N = Console . ReadLine 
S = 0 

For i = 1 To N 

S = S + (1 / i) 

Next 

Console. Write ("S est : " & S) 
Console . ReadLine () 
End Sub 
End Module 



4. 

Module Module 1 
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Dim N, i, S As Double 
Sub Main () 

Console .Write ("Entrez la valeur de N : ") 
N = Console . ReadLine 
S = 1 

For i = 1 To N 

S = S + (1 / (2 * i)) 

Next 

Console. Write ("S est : " & S) 
Console . ReadLine () 
End Sub 
End Module 

5. 

Module Module 1 

Dim N, i, S As Double 
Sub Main () 

Console .Write ("Entrez la valeur de N : ") 
N = Console . ReadLine 
S = 1 

For i = 1 To N 

S = S - (1 / (2 * i)) + (1 / (2 * i + 1)) 

Next 

Console. Write ("S est : " & S) 
Console . ReadLine () 
End Sub 
End Module 

6. 

Module Module 1 

Dim N, i, S As Double 
Sub Main () 

Console .Write ("Entrez la valeur de N : ") 
N = Console . ReadLine 
S = 1 

For i = 1 To N 

S = S + (i / (i + 1)) 

Next 

Console. Write ("S est : " & S) 
Console . ReadLine () 
End Sub 
End Module 

i. 

Module Module 1 

Dim N, i, S As Double 
Sub Main () 

Console .Write ("Entrez la valeur de N : ") 
N = Console . ReadLine 
S = 1 

For i = 1 To N 

S = S - (1 / (3 * i)) + (1 / (3 * i + 1)) 

Next 

Console. Write ("S est : " & S) 
Console . ReadLine () 
End Sub 
End Module 



8. 
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Module Module 1 

Dim P , 1, S, X As Double 
Sub Main () 

Console .Write ("Entrez la valeur de X : ") 
X = Console . ReadLine 

Console .Write ( "Entrez la puissance : ") 
P = Console . ReadLine 
S = 0 

For i = 0 To P 

S = S + (X A (2*1+1)) / (2*1+1) 

Next 

Console. Write ("S est : " & S) 
Console . ReadLine () 
End Sub 
End Module 



Module Module 1 

Dim 1, S, N As Double 
Sub Main () 

Console .Write ("Entrez la valeur de N : ") 
N = Console . ReadLine 
S = 1 

For i = 1 To N 

S = (3 * S + 5) 

Next 

Console. Write ("S est : " & S) 
Console . ReadLine () 
End Sub 
End Module 

10. 

Module Module 1 

Dim 1, N, X, Y, S As Double 
Sub Main () 

X = 1 / 2 
Y = 1 

Console .Write ("Entrez la valeur de N : ") 
N = Console .ReadLine 
S = 0 

For 1 = 1 To N 

S = (3 * Y) - (5 * X) 
X = Y 
Y = S 

Next 

Console. Write ("S est : " & S) 
Console . ReadLine () 
End Sub 
End Module 



11. 

Module Module 1 

Dim i, e, X, P, F As Double 
Sub Main () 

Console .Write ( "Entrez la valeur de x : ") 
X = Console . ReadLine 

Console .Write ( "Entrez la puissance : ") 
P = Console . ReadLine 
e = 1 
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F = 1 

For i = 1 To P 
F = F * i 

e = e + ((X A i) / F) 

Next 

Console. Write ("e est : " & e) 
Console . ReadLine () 
End Sub 
End Module 

12. 

Module Module 1 

Dim i, e, X, EPS, F As Double 
Sub Main () 

Console .Write ( "Entrez la valeur de x : ") 
X = Console . ReadLine 

Console. Write ("Entrez la valeur d'EPS : ") 

EPS = Console . ReadLine 

e = 1 

F = 1 

i = 1 

Do 

F = F * i 

e = e + ((X A i) / F) 
i += 1 
Loop Until (e < EPS) 
Console. Write ("e est : " & e) 
Console . ReadLine () 
End Sub 
End Module 

13. 

Module Module 1 

Dim i, X, F, P, S, L, j, k As Double 
Sub Main () 

Console .Write ("Entrez la valeur de X : ") 
X = Console . ReadLine 

Console .Write ( "Entrez la puissance : ") 
P = Console . ReadLine 
S = 0 

For i = 0 To P 
F = 1 
L = 1 

For j = 1 To (4 * i + 1) 
F = F * j 

Next 

For k = 1 To (4 * i + 3) 
L = L * k 

Next 

S = S + ((X A (4*1+1)) / F) - ((X A (4 * i + 3)) / L) 

Next 

Console. Write ("S est : " & S) 
Console . ReadLine () 
End Sub 
End Module 
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Conclusion : 

J'espere que vous avez trouve au moins ce que vous cherchez, et que ce 
document etait vraiment utile. 

Et merci a toute personne qui a contribue, de pret ou de loin, a 1' amelioration de 
mon bagage technique. 



Pour plus d' informations veuillez nous ecrire a l'adresse email suivante: 
Email: marouan.ts @ gmail.com 
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